WebSVN – userdetect2 – Diff – /trunk/UserDetect2/UD2_PluginIntf.pas


unit UD2_PluginIntf;
 
interface
 
{$IF CompilerVersion >= 25.0}
{$LEGACYIFEND ON}
{$IFEND}
 
{$WARN UNSAFE_TYPE OFF}
 
uses
  Windows, SysUtils, UD2_PluginStatus;
 
const
  GUID_USERDETECT2_IDPLUGIN_V1: TGUID = '{6C26245E-F79A-416C-8C73-BEA3EC18BB6E}';
 
const
  mnPluginInterfaceID         = 'PluginInterfaceID';
  mnPluginIdentifier          = 'PluginIdentifier';
  mnPluginNameW               = 'PluginNameW';
  mnPluginVersionW            = 'PluginVersionW';
  mnPluginVendorW             = 'PluginVendorW';
  mnCheckLicense              = 'CheckLicense';
  mnIdentificationMethodNameW = 'IdentificationMethodNameW';
  mnIdentificationStringW     = 'IdentificationStringW';
  mnDescribeOwnStatusCodeW    = 'DescribeOwnStatusCodeW';
 
{$IF not Declared(LPVOID)}
type
  LPVOID = Pointer;
{$IFEND}
 
type
  TFuncPluginInterfaceID = function(): TGUID; cdecl;
  TFuncPluginIdentifier = function(): TGUID; cdecl;
  TFuncPluginNameW = function(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
  TFuncPluginVersionW = function(lpPluginVersion: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
  TFuncPluginVendorW = function(lpPluginVendor: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;
  TFuncCheckLicense = function(lpReserved: LPVOID): UD2_STATUS; cdecl;
  TFuncIdentificationMethodNameW = function(lpIdentificationMethodName: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
  TFuncIdentificationStringW = function(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;
  TFuncDescribeOwnStatusCodeW = function(lpErrorDescription: LPWSTR; cchSize: DWORD; statusCode: UD2_STATUS; wLangID: LANGID): BOOL; cdecl;
 
const
  UD2_MULTIPLE_ITEMS_DELIMITER = #10;
 
function PluginInterfaceID: TGUID; cdecl;
 
implementation
 
function PluginInterfaceID: TGUID; cdecl;
begin
  result := GUID_USERDETECT2_IDPLUGIN_V1;
end;
 
end.
 

Subversion Repositories userdetect2

userdetect2/trunk/UserDetect2/UD2_PluginIntf.pas – Rev 71 → 81

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