Subversion Repositories userdetect2

Rev

Rev 81 | Rev 83 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

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