Da ich gerade dabei bin das ganze hier nachzuvollziehen aber immer wieder scheitere, weil im empfangenden Programm nichts ankommt, frage ich mich nun ernsthaft wodurch denn die Recieve-procedure aufgerufen oder ausgelöst werden soll.
Ich habe mal die durch xxx angegebenen namen durch meine ersetzt. ich hoffe es liegt nicht daran...
Delphi-Quellcode:
public
{ Public-Deklarationen }
procedure Receive(var msg:TMessage);message wm_user+10;
end;
procedure TForm1.Receive(var msg:TMessage);
var s:string;
l:cardinal;
begin
ShowMessage('kommt was!'); // wird nicht aufgerufen, daher die vermutung, dass die procedure nicht aufgerufen wird...
SetLength(s,msg.lparam);
l:=GlobalGetAtomName(msg.wparam,@s[1],msg.lparam+1);
setlength(s,msg.lparam);
ShowMessage(s); //wird nicht angezeigt
end;
Habe ich etwas wichtiges vergessen???