Programm über SendMessage kontrollieren

[sirius]

Ich würde es spontan so sagen (ungetestet):

Delphi-Quellcode:

procedure sending(text:string);
var data:TCopyDataStruct;
begin
  data.dwdata:=0;
  data.cbdata:=length(text);
  data.lpdata:=@text[1]
  sendmessage(zielhandle,wm_copydata,selfhandle,integer(@data));
end;

Delphi-Quellcode:

type xxx=class(TForm)
     ...
     procedure receiving(var msg:TWMCopydata):message wm_copydata; 
     ...
end;

...

procedure receiving(var msg:TWmcopydata);
begin
  //Message in msg.copydatastruct
end;

Edit: Wenn ich mir das so ansehe, finde ich es nicht einfacher als Atoms
Edit2: 1 Fehler behoben