Subversion Repositories delphiutils

Rev

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

Rev 68 Rev 69
Line 16... Line 16...
16 
function PluginIdentifier: TGUID; cdecl;
 16 
function PluginIdentifier: TGUID; cdecl;
17 
begin
 17 
begin
18 
  result := PLUGIN_GUID;
 18 
  result := PLUGIN_GUID;
19 
end;
 19 
end;
20 
 
 20 
 
21 
function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUSCODE; 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 
  stIdentifier := GetCurrentUserSid;
 25 
  stIdentifier := GetCurrentUserSid;
26 
  result := WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
 26 
  result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);
27 
end;
 27 
end;
28 
 
 28 
 
29 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUSCODE; cdecl;
 29 
function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
30 
var
 30 
var
31 
  stPluginName: WideString;
 31 
  stPluginName: WideString;
32 
  primaryLangID: Byte;
 32 
  primaryLangID: Byte;
33 
begin
 33 
begin
34 
  primaryLangID := wLangID and $00FF;
 34 
  primaryLangID := wLangID and $00FF;
35 
  if primaryLangID = LANG_GERMAN then
 35 
  if primaryLangID = LANG_GERMAN then
36 
    stPluginName := 'SID des Benutzers'
 36 
    stPluginName := 'SID des Benutzers'
37 
  else
 37 
  else
38 
    stPluginName := 'User Security Identifier';
 38 
    stPluginName := 'User Security Identifier';
39 
  result := WritePascalStringToPointerW(lpPluginName, cchSize, stPluginName);
 39 
  result := UD2_WritePascalStringToPointerW(lpPluginName, cchSize, stPluginName);
40 
end;
 40 
end;
41 
 
 41 
 
42 
function PluginVendorW(lpPluginVendor: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUSCODE; cdecl;
 42 
function PluginVendorW(lpPluginVendor: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
43 
begin
 43 
begin
44 
  result := WritePascalStringToPointerW(lpPluginVendor, cchSize, 'ViaThinkSoft');
 44 
  result := UD2_WritePascalStringToPointerW(lpPluginVendor, cchSize, 'ViaThinkSoft');
45 
end;
 45 
end;
46 
 
 46 
 
47 
function PluginVersionW(lpPluginVersion: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUSCODE; cdecl;
 47 
function PluginVersionW(lpPluginVersion: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
48 
begin
 48 
begin
49 
  result := WritePascalStringToPointerW(lpPluginVersion, cchSize, '1.0');
 49 
  result := UD2_WritePascalStringToPointerW(lpPluginVersion, cchSize, '1.0');
50 
end;
 50 
end;
51 
 
 51 
 
52 
function IdentificationMethodNameW(lpIdentificationMethodName: LPWSTR; cchSize: DWORD): UD2_STATUSCODE; cdecl;
 52 
function IdentificationMethodNameW(lpIdentificationMethodName: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
53 
var
 53 
var
54 
  stIdentificationMethodName: WideString;
 54 
  stIdentificationMethodName: WideString;
55 
begin
 55 
begin
56 
  stIdentificationMethodName := 'SID';
 56 
  stIdentificationMethodName := 'SID';
57 
  result := WritePascalStringToPointerW(lpIdentificationMethodName, cchSize, stIdentificationMethodName);
 57 
  result := UD2_WritePascalStringToPointerW(lpIdentificationMethodName, cchSize, stIdentificationMethodName);
58 
end;
 58 
end;
59 
 
 59 
 
60 
function CheckLicense(lpReserved: LPVOID): UD2_STATUSCODE; cdecl;
 60 
function CheckLicense(lpReserved: LPVOID): UD2_STATUS; cdecl;
61 
begin
 61 
begin
62 
  result := UD2_STATUS_OK;
 62 
  result := UD2_STATUS_OK_LICENSED;
63 
end;
 63 
end;
64 
 
 64 
 
65 
exports
 65 
exports
66 
  PluginInterfaceID         name mnPluginInterfaceID,
 66 
  PluginInterfaceID         name mnPluginInterfaceID,
67 
  PluginIdentifier          name mnPluginIdentifier,
 67 
  PluginIdentifier          name mnPluginIdentifier,