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