Subversion Repositories userdetect2

Rev

Rev 81 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 81 Rev 82
Line 21... Line 21...
21 
 
 21 
 
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 
begin
 25 
begin
- 
 
 26 
  try
26 
  sl := TStringList.Create;
 27 
    sl := TStringList.Create;
27 
  try
 28 
    try
28 
    EnvironmentStringsToStrings(sl);
 29 
      EnvironmentStringsToStrings(sl);
29 
    result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl);
 30 
      result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl);
30 
  finally
 31 
    finally
31 
    sl.Free;
 32 
      sl.Free;
32 
  end;
 33 
    end;
- 
 
 34 
  except
- 
 
 35 
    on E: Exception do result := UD2_STATUS_HandleException(E);
- 
 
 36 
  end;
33 
end;
 37 
end;
34 
 
 38 
 
35 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
 39 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
36 
var
 40 
var
37 
  stPluginName: WideString;
 41 
  stPluginName: WideString;