Programm über SendMessage kontrollieren

[sirius]

Delphi-Quellcode:

procedure send(s:string);
var wparam,lparam:integer;
begin
  wparam:=globaladdAtom(pchar(s));
  lparam:=length(s);
  sendmessage(zielhandle,WM_User+10,wparam,lparam);
  globaldeleteatom(wparam);
end;

Das "+10" kann auch anders sein, Hauptsache ist, du hast in beiden Programmen dieselbe Nummer und sie ist nicht kleiner als WM_User

Delphi-Quellcode:

type xxx=class(Tform)
     ...
     procedure receive(var msg:TMessage);message wm_user+10;
end;


procedure xxx.receive(var msg:TMessage);
var s:string;
begin
  setlength(s,msg.lparam);
  globalgetatomname(msg.wparam,@s,msg.lparam); //könnte auch @s[1] sein oder so...
  //s im Prog weiterleiten
end;