Ich habe es jetzt mal ganz simpel gemacht: Das Programm soll sich selbst suchen und sich danach eine Message Senden:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
wnd : HWND;
begin
wnd := FindWindow(nil, 'Project1'); //sucht seine eigene Instanz (und findet sich auch)
if wnd <> 0 then
begin
SendMessage(wnd, 4245, 0, 0); // habe hier einfach mal die zahl "4225" genommen,
ShowMessage('done...'); // da ich denke, dass dieser Parameter eine Art ID ist ?!
end;
end;
procedure TForm1.wndproc(var Message:TMessage);
begin
if Message.msg = 4245 then // wenn die message ID....
begin
edit1.Text := 'Yes'; // ....bescheid geben
end
else
begin
inherited; // ansonsten machen, was standardweise getan wird
end;
end;
wenn ich beim SENDMESSAGE als ersten PArameter
handle (Form1.handle [sein eigenes
Handle]) angebe, empfängt er die Nachricht und führt auch den if befehl aus...