Subversion Repositories userdetect2

Rev

Rev 71 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 71 Rev 82
Line 22... Line 22...
22 
function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
 22 
function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
23 
var
 23 
var
24 
  sl: TStringList;
 24 
  sl: TStringList;
25 
  ec: DWORD;
 25 
  ec: DWORD;
26 
begin
 26 
begin
27 
  sl := TStringList.Create;
 - 
 
28 
  try
 27 
  try
- 
 
 28 
    sl := TStringList.Create;
- 
 
 29 
    try
29 
    ec := GetDHCPIPAddressList(sl);
 30 
      ec := GetDHCPIPAddressList(sl);
30 
    if ec = ERROR_NOT_SUPPORTED then
 31 
      if ec = ERROR_NOT_SUPPORTED then
31 
    begin
 32 
      begin
32 
      result := UD2_STATUS_NOTAVAIL_OS_NOT_SUPPORTED;
 33 
        result := UD2_STATUS_NOTAVAIL_OS_NOT_SUPPORTED;
33 
      Exit;
 34 
        Exit;
34 
    end
 35 
      end
35 
    else if ec <> ERROR_SUCCESS then
 36 
      else if ec <> ERROR_SUCCESS then
36 
    begin
 37 
      begin
37 
      result := UD2_STATUS_OSError(ec);
 38 
        result := UD2_STATUS_OSError(ec);
38 
      Exit;
 39 
        Exit;
- 
 
 40 
      end;
- 
 
 41 
      result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl);
- 
 
 42 
    finally
- 
 
 43 
      sl.Free;
39 
    end;
 44 
    end;
40 
    result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl);
 - 
 
41 
  finally
 45 
  except
42 
    sl.Free;
 46 
    on E: Exception do result := UD2_STATUS_HandleException(E);
43 
  end;
 47 
  end;
44 
end;
 48 
end;
45 
 
 49 
 
46 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
 50 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
47 
var
 51 
var