Rev 71 | Rev 82 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
68 | daniel-mar | 1 | unit UD2_PluginIntf; |
2 | |||
3 | interface |
||
4 | |||
5 | {$IF CompilerVersion >= 25.0} |
||
6 | {$LEGACYIFEND ON} |
||
7 | {$IFEND} |
||
8 | |||
81 | daniel-mar | 9 | {$WARN UNSAFE_TYPE OFF} |
10 | |||
68 | daniel-mar | 11 | uses |
71 | daniel-mar | 12 | Windows, SysUtils, UD2_PluginStatus; |
68 | daniel-mar | 13 | |
14 | const |
||
15 | GUID_USERDETECT2_IDPLUGIN_V1: TGUID = '{6C26245E-F79A-416C-8C73-BEA3EC18BB6E}'; |
||
16 | |||
17 | const |
||
18 | mnPluginInterfaceID = 'PluginInterfaceID'; |
||
19 | mnPluginIdentifier = 'PluginIdentifier'; |
||
20 | mnPluginNameW = 'PluginNameW'; |
||
21 | mnPluginVersionW = 'PluginVersionW'; |
||
22 | mnPluginVendorW = 'PluginVendorW'; |
||
23 | mnCheckLicense = 'CheckLicense'; |
||
24 | mnIdentificationMethodNameW = 'IdentificationMethodNameW'; |
||
25 | mnIdentificationStringW = 'IdentificationStringW'; |
||
70 | daniel-mar | 26 | mnDescribeOwnStatusCodeW = 'DescribeOwnStatusCodeW'; |
68 | daniel-mar | 27 | |
28 | {$IF not Declared(LPVOID)} |
||
29 | type |
||
30 | LPVOID = Pointer; |
||
31 | {$IFEND} |
||
32 | |||
33 | type |
||
34 | TFuncPluginInterfaceID = function(): TGUID; cdecl; |
||
35 | TFuncPluginIdentifier = function(): TGUID; cdecl; |
||
69 | daniel-mar | 36 | TFuncPluginNameW = function(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl; |
37 | TFuncPluginVersionW = function(lpPluginVersion: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl; |
||
38 | TFuncPluginVendorW = function(lpPluginVendor: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl; |
||
39 | TFuncCheckLicense = function(lpReserved: LPVOID): UD2_STATUS; cdecl; |
||
40 | TFuncIdentificationMethodNameW = function(lpIdentificationMethodName: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl; |
||
41 | TFuncIdentificationStringW = function(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl; |
||
70 | daniel-mar | 42 | TFuncDescribeOwnStatusCodeW = function(lpErrorDescription: LPWSTR; cchSize: DWORD; statusCode: UD2_STATUS; wLangID: LANGID): BOOL; cdecl; |
68 | daniel-mar | 43 | |
44 | const |
||
45 | UD2_MULTIPLE_ITEMS_DELIMITER = #10; |
||
46 | |||
47 | function PluginInterfaceID: TGUID; cdecl; |
||
48 | |||
49 | implementation |
||
50 | |||
51 | function PluginInterfaceID: TGUID; cdecl; |
||
52 | begin |
||
53 | result := GUID_USERDETECT2_IDPLUGIN_V1; |
||
54 | end; |
||
55 | |||
56 | end. |