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;