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


unit UD2_PluginIntf;
 
interface
 
{$IF CompilerVersion >= 25.0}
{$LEGACYIFEND ON}
{$IFEND}
 
 
 
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 81 → 82

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