Subversion Repositories userdetect2

Rev

Rev 71 | Rev 82 | 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. {$WARN UNSAFE_TYPE OFF}
  10.  
  11. uses
  12.   Windows, SysUtils, UD2_PluginStatus;
  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';
  26.   mnDescribeOwnStatusCodeW    = 'DescribeOwnStatusCodeW';
  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;
  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;
  42.   TFuncDescribeOwnStatusCodeW = function(lpErrorDescription: LPWSTR; cchSize: DWORD; statusCode: UD2_STATUS; wLangID: LANGID): BOOL; cdecl;
  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.
  57.