Subversion Repositories userdetect2

Rev

Rev 69 | Rev 71 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 69 Rev 70
Line 19... Line 19...
19 
end;
 19 
end;
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 
  sl: TStringList;
 23 
  sl: TStringList;
- 
 
 24 
  ec: DWORD;
24 
begin
 25 
begin
25 
  sl := TStringList.Create;
 26 
  sl := TStringList.Create;
26 
  try
 27 
  try
27 
    GetGatewayIPAddressList(sl);
 28 
    ec := GetGatewayIPAddressList(sl);
- 
 
 29 
    if ec = ERROR_NOT_SUPPORTED then
- 
 
 30 
    begin
- 
 
 31 
      result := UD2_STATUS_NOTAVAIL_OS_NOT_SUPPORTED;
- 
 
 32 
      Exit;
- 
 
 33 
    end
- 
 
 34 
    else if ec <> ERROR_SUCCESS then
- 
 
 35 
    begin
- 
 
 36 
      result := UD2_STATUS_NOTAVAIL_API_CALL_FAILURE;
- 
 
 37 
      Exit;
- 
 
 38 
    end;
28 
    result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl);
 39 
    result := UD2_WriteStringListToPointerW(lpIdentifier, cchSize, sl);
29 
  finally
 40 
  finally
30 
    sl.Free;
 41 
    sl.Free;
31 
  end;
 42 
  end;
32 
end;
 43 
end;
Line 65... Line 76...
65 
function CheckLicense(lpReserved: LPVOID): UD2_STATUS; cdecl;
 76 
function CheckLicense(lpReserved: LPVOID): UD2_STATUS; cdecl;
66 
begin
 77 
begin
67 
  result := UD2_STATUS_OK_LICENSED;
 78 
  result := UD2_STATUS_OK_LICENSED;
68 
end;
 79 
end;
69 
 
 80 
 
- 
 
 81 
function DescribeOwnStatusCodeW(lpErrorDescription: LPWSTR; cchSize: DWORD; statusCode: UD2_STATUS; wLangID: LANGID): BOOL; cdecl;
- 
 
 82 
begin
- 
 
 83 
  // This function does not use non-generic status codes
- 
 
 84 
  result := FALSE;
- 
 
 85 
end;
- 
 
 86 
 
70 
exports
 87 
exports
71 
  PluginInterfaceID         name mnPluginInterfaceID,
 88 
  PluginInterfaceID         name mnPluginInterfaceID,
72 
  PluginIdentifier          name mnPluginIdentifier,
 89 
  PluginIdentifier          name mnPluginIdentifier,
73 
  PluginNameW               name mnPluginNameW,
 90 
  PluginNameW               name mnPluginNameW,
74 
  PluginVendorW             name mnPluginVendorW,
 91 
  PluginVendorW             name mnPluginVendorW,
75 
  PluginVersionW            name mnPluginVersionW,
 92 
  PluginVersionW            name mnPluginVersionW,
76 
  IdentificationMethodNameW name mnIdentificationMethodNameW,
 93 
  IdentificationMethodNameW name mnIdentificationMethodNameW,
77 
  IdentificationStringW     name mnIdentificationStringW,
 94 
  IdentificationStringW     name mnIdentificationStringW,
78 
  CheckLicense              name mnCheckLicense;
 95 
  CheckLicense              name mnCheckLicense,
- 
 
 96 
  DescribeOwnStatusCodeW    name mnDescribeOwnStatusCodeW;
79 
 
 97 
 
80 
end.
 98 
end.