Subversion Repositories delphiutils

library ComputerName;

uses

  Windows,

  SysUtils,

  Classes,

  UD2_PluginIntf in '..\UD2_PluginIntf.pas',

  UD2_PluginUtils in '..\UD2_PluginUtils.pas';

{$R *.res}

const

  PLUGIN_GUID: TGUID = '{2AD004FF-6BFD-4038-B75B-9527DEABA28F}';

function PluginIdentifier: TGUID; cdecl;

begin

  result := PLUGIN_GUID;

end;

function GetComputerName: string;

// http://www.delphi-treff.de/tipps-tricks/netzwerkinternet/netzwerkeigenschaften/computernamen-des-eigenen-rechners-ermitteln/

var

  Len: DWORD;

begin

  Len := MAX_COMPUTERNAME_LENGTH+1;

  SetLength(Result,Len);

  if Windows.GetComputerName(PChar(Result), Len) then

    SetLength(Result,Len)

  else

    RaiseLastOSError;

end;

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

var

  stIdentifier: WideString;

begin

  stIdentifier := GetComputerName;

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

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 := 'Computer-Name'

  else

    stPluginName := 'Computer name';

  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 := 'ComputerName';

  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.