zwei Programme miteinander kommunizieren lassen

[SirThornberry]

Warum willst du den Buttonklicken? Es wäre doch viel einfacher wenn du selbst eine message definierst und deine eigene messageroutine dafür schreibst

Delphi-Quellcode:

const WM_Communication = WM_USER + 10;
[...]
    procedure WMCommunication(var message: TMessage); message WM_Communication;
[...]


procedure TESFEBServer10.WMCommunication(var message: TMessage);
var a: HWND;
begin
  a := findwindow(PChar('TAnderesProg'), PChar('TitelX1'));
  if a > 0 then
  begin
    if (Message.LParam = -1) then 
    begin
      //datei schließen
    end else if if (Message.LParam = 0) then 
    begin
      //datei öffnen
    end;
    postmessage(a, WM_Communication, Message.WParam, Message.LParam); //bestätigung schicken
  end; 
end;

einfach vorher festlegen welche zahl was bedeutet. Ich hab in dem Beispiel einfach mal -1 gesendet wenn die datei geschlossen werden soll und 0 wenn sie wieder geöffnet werden kann