[Velleman_K8055_USB]
K8055USB_STATUS_0=0,0,0
K8055USB_STATUS_1=0,33,71
K8055USB_STATUS_2=0,0,0
K8055USB_STATUS_DATE=27.04.2010,10:53:06

unit usndmsg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin;

type
  TForm1 = class(TForm)
    procedure MySendMessage;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MySendMessage;
var
  aCopyData   : TCopyDataStruct;   // instance of the records
  hTargetWnd  : hWnd;              // handle of Licht24 Pro
  s : String;
  i, x : Integer;
begin

  // check parameter count
  x := ParamCount;
  if x = 0 then Exit;

  // copy the parameters to a string
  s := '';
  for i := 1 to x do begin
    s := s + ParamStr(i) + ' ';
  end;
  trim(s);

  // set data 
  with aCopyData do begin
    dwData := 0;
    cbData := StrLen(PChar(s)) + 1;
    lpData := PChar(s);
  end;

  // Find the receiver window for the message via the title
  hTargetWnd := FindWindow(nil, PChar('Licht24 Pro'));
  if hTargetWnd <> 0 then 
    SendMessage(hTargetWnd, WM_CopyData, LongInt(Handle), LongInt(@aCopyData));
  
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.ShowMainForm := false;
  MySendMessage;
  Application.Terminate;
end;

end.