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