Subversion Repositories userdetect2

library ExecuteAlways;

uses

  Windows,

  SysUtils,

  Classes,

  UD2_PluginIntf in '..\UD2_PluginIntf.pas',

  UD2_PluginUtils in '..\UD2_PluginUtils.pas',

  UD2_PluginStatus in '..\UD2_PluginStatus.pas';

{$R *.res}

const

  PLUGIN_GUID: TGUID = '{7A1189CD-8F68-4068-9477-C50B9DCCCECC}';

function PluginIdentifier: TGUID; cdecl;

begin

  result := PLUGIN_GUID;

end;

function IdentificationStringW(lpIdentifier: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;

var

  stIdentifier: WideString;

begin

  try

    stIdentifier := 'Always';

    result := UD2_WritePascalStringToPointerW(lpIdentifier, cchSize, stIdentifier);

  except

    on E: Exception do result := UD2_STATUS_HandleException(E);

  end;

end;

function PluginNameW(lpPluginName: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;

var

  stPluginName: WideString;

  primaryLangID: Byte;

begin

  primaryLangID := wLangID and $00FF;

  if primaryLangID = LANG_GERMAN then

    stPluginName := 'Immer ausführen'

  else

    stPluginName := 'Execute always';

  result := UD2_WritePascalStringToPointerW(lpPluginName, cchSize, stPluginName);

end;

function PluginVendorW(lpPluginVendor: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;

begin

  result := UD2_WritePascalStringToPointerW(lpPluginVendor, cchSize, 'ViaThinkSoft');

end;

function PluginVersionW(lpPluginVersion: LPWSTR; cchSize: DWORD; wLangID: LANGID): UD2_STATUS; cdecl;

begin

  result := UD2_WritePascalStringToPointerW(lpPluginVersion, cchSize, '1.0');

end;

function IdentificationMethodNameW(lpIdentificationMethodName: LPWSTR; cchSize: DWORD): UD2_STATUS; cdecl;

var

  stIdentificationMethodName: WideString;

begin

  stIdentificationMethodName := 'Execute';

  result := UD2_WritePascalStringToPointerW(lpIdentificationMethodName, cchSize, stIdentificationMethodName);

end;

function CheckLicense(lpReserved: LPVOID): UD2_STATUS; cdecl;

begin

  result := UD2_STATUS_OK_LICENSED;

end;

function DescribeOwnStatusCodeW(lpErrorDescription: LPWSTR; cchSize: DWORD; statusCode: UD2_STATUS; wLangID: LANGID): BOOL; cdecl;

begin

  // This function does not use non-generic status codes

  result := FALSE;

end;

exports

  PluginInterfaceID         name mnPluginInterfaceID,

  PluginIdentifier          name mnPluginIdentifier,

  PluginNameW               name mnPluginNameW,

  PluginVendorW             name mnPluginVendorW,

  PluginVersionW            name mnPluginVersionW,

  IdentificationMethodNameW name mnIdentificationMethodNameW,

  IdentificationStringW     name mnIdentificationStringW,

  CheckLicense              name mnCheckLicense,

  DescribeOwnStatusCodeW    name mnDescribeOwnStatusCodeW;

end.