Mehrere Instanzen + Parameterübergabe

[gregorkleiber]

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...