Subversion Repositories userdetect2

Rev

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

Rev 81 Rev 82
Line 2... Line 2...
2 
 
 2 
 
3 
uses
 3 
uses
4 
  Windows,
 4 
  Windows,
5 
  SysUtils,
 5 
  SysUtils,
6 
  Classes,
 6 
  Classes,
- 
 
 7 
  SPGetSid,
7 
  MiscUtils,
 8 
  MiscUtils,
8 
  UD2_PluginIntf in '..\UD2_PluginIntf.pas',
 9 
  UD2_PluginIntf in '..\UD2_PluginIntf.pas',
9 
  UD2_PluginUtils in '..\UD2_PluginUtils.pas',
 10 
  UD2_PluginUtils in '..\UD2_PluginUtils.pas',
10 
  UD2_PluginStatus in '..\UD2_PluginStatus.pas';
 11 
  UD2_PluginStatus in '..\UD2_PluginStatus.pas';
11 
 
 12 
 
Line 21... Line 22...
21 
 
 22 
 
22 
function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
 23 
function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
23 
var
 24 
var
24 
  stIdentifier: WideString;
 25 
  stIdentifier: WideString;
25 
begin
 26 
begin
- 
 
 27 
  try
- 
 
 28 
    if GetPlatformID = VER_PLATFORM_WIN32_WINDOWS then
- 
 
 29 
    begin
- 
 
 30 
      result := UD2_STATUS_NOTAVAIL_OS_NOT_SUPPORTED;
- 
 
 31 
      Exit;
- 
 
 32 
    end;
- 
 
 33 
 
26 
  stIdentifier := GetComputerSid;
 34 
    stIdentifier := GetComputerSid;
27 
  result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
 35 
    result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
- 
 
 36 
  except
- 
 
 37 
    on E: Exception do result := UD2_STATUS_HandleException(E);
- 
 
 38 
  end;
28 
end;
 39 
end;
29 
 
 40 
 
30 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
 41 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
31 
var
 42 
var
32 
  stPluginName: WideString;
 43 
  stPluginName: WideString;