Subversion Repositories userdetect2

Rev

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

Rev 81 Rev 82
Line 20... Line 20...
20 
 
 20 
 
21 
function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
 21 
function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
22 
var
 22 
var
23 
  stIdentifier: WideString;
 23 
  stIdentifier: WideString;
24 
begin
 24 
begin
- 
 
 25 
  try
25 
  stIdentifier := IntToStr(Win32MajorVersion);
 26 
    stIdentifier := IntToStr(Win32MajorVersion);
26 
  result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
 27 
    result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
- 
 
 28 
  except
- 
 
 29 
    on E: Exception do result := UD2_STATUS_HandleException(E);
- 
 
 30 
  end;
27 
end;
 31 
end;
28 
 
 32 
 
29 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
 33 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
30 
var
 34 
var
31 
  stPluginName: WideString;
 35 
  stPluginName: WideString;