Subversion Repositories userdetect2

Rev

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 := GetLocalMACAddressList(sl2);
 33 
      ec := GetLocalMACAddressList(sl2);
33 
    if ec = ERROR_NOT_SUPPORTED then
 34 
      if ec = ERROR_NOT_SUPPORTED then
Line 62... Line 63...
62 
    result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl2);
 63 
      result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl2);
63 
  finally
 64 
    finally
64 
    sl.Free;
 65 
      sl.Free;
65 
    sl2.Free;
 66 
      sl2.Free;
66 
  end;
 67 
    end;
- 
 
 68 
  except
- 
 
 69 
    on E: Exception do result := UD2_STATUS_HandleException(E);
- 
 
 70 
  end;
67 
end;
 71 
end;
68 
 
 72 
 
69 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
 73 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
70 
var
 74 
var
71 
  stPluginName: WideString;
 75 
  stPluginName: WideString;