Rev 71 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 71 | Rev 82 | ||
---|---|---|---|
Line 24... | Line 24... | ||
24 | sl, sl2: TStringList; |
24 | sl, sl2: TStringList; |
25 | i: integer; |
25 | i: integer; |
26 | ip, mac: string; |
26 | ip, mac: string; |
27 | ec: DWORD; |
27 | ec: DWORD; |
28 | begin |
28 | begin |
- | 29 | try |
|
29 | sl := TStringList.Create; |
30 | sl := TStringList.Create; |
30 | sl2 := TStringList.Create; |
31 | sl2 := TStringList.Create; |
31 | try |
32 | try |
32 | ec := GetDHCPIPAddressList(sl); |
33 | ec := GetDHCPIPAddressList(sl); |
33 | if ec = ERROR_NOT_SUPPORTED then |
34 | if ec = ERROR_NOT_SUPPORTED then |
Line 60... | Line 61... | ||
60 | result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl2); |
61 | result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl2); |
61 | finally |
62 | finally |
62 | sl.Free; |
63 | sl.Free; |
63 | sl2.Free; |
64 | sl2.Free; |
64 | end; |
65 | end; |
- | 66 | except |
|
- | 67 | on E: Exception do result := UD2_STATUS_HandleException(E); |
|
- | 68 | end; |
|
65 | end; |
69 | end; |
66 | 70 | ||
67 | function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl; |
71 | function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl; |
68 | var |
72 | var |
69 | stPluginName: WideString; |
73 | stPluginName: WideString; |