Subversion Repositories userdetect2

Rev

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

Rev 73 Rev 82
Line 22... Line 22...
22 
 
 22 
 
23 
function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
 23 
function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
24 
var
 24 
var
25 
  stIdentifier: WideString;
 25 
  stIdentifier: WideString;
26 
begin
 26 
begin
- 
 
 27 
  try
27 
  if not GetDomainName(stIdentifier) then
 28 
    if not GetDomainName(stIdentifier) then
28 
  begin
 29 
    begin
29 
    result := UD2_STATUS_NOTAVAIL_OS_NOT_SUPPORTED;
 30 
      result := UD2_STATUS_NOTAVAIL_OS_NOT_SUPPORTED;
30 
    Exit;
 31 
      Exit;
31 
  end;
 32 
    end;
32 
  result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
 33 
    result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
- 
 
 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;