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 
  stIdentifier: WideString;
 24 
  stIdentifier: WideString;
25 
begin
 25 
begin
- 
 
 26 
  try
26 
  stIdentifier := GetHomeDir;
 27 
    stIdentifier := GetHomeDir;
27 
 
 28 
 
28 
  if stIdentifier <> '' then
 29 
    if stIdentifier <> '' then
29 
  begin
 30 
    begin
30 
    stIdentifier := '\\' + GetComputerName + '\' + StringReplace(stIdentifier, ':', '$', []);
 31 
      stIdentifier := '\\' + GetComputerName + '\' + StringReplace(stIdentifier, ':', '$', []);
31 
  end;
 32 
    end;
32 
 
 33 
 
33 
  result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
 34 
    result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
- 
 
 35 
  except
- 
 
 36 
    on E: Exception do result := UD2_STATUS_HandleException(E);
- 
 
 37 
  end;
34 
end;
 38 
end;
35 
 
 39 
 
36 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
 40 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
37 
var
 41 
var
38 
  stPluginName: WideString;
 42 
  stPluginName: WideString;