FindWindow

[derseitzer]

Hallo Leute,
Ich habe mir 2 Delphi Programme gemacht und möchte nun vom Prog1 das Prog2 steuern.
im Prog1 steht unter anderem dieser Buttonclick:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  hWnd: THandle;
  hBtn: THandle;
begin
  hWnd := FindWindow(nil, 'Gesteuert');
  if hWnd <> 0 then
  begin
    hBtn := FindWindowEx(hWnd, 0, nil, 'Button');
    if hBtn <> 0 then
    begin
      SendMessage(hBtn, BM_CLICK, 0, 0);
    end
    else
      ShowMessage(SysErrorMessage(GetLastError));
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;

im Prog2 habe ich aus Testzwecken nur einen Button. Name UND caption des Buttons(eig ja Panel aber egal) ist 'Button' und der Formname von Prog2 UND caption ist "Gesteuert".
Ich bekomme KEINE showmessage, was mich sehr verwirrt.. wenn ich andere Sachen eingeben bekomme ich die showmessage. Das, was passieren soll, wenn ich auf den "Button" klicke, passiert nicht..
Wo liegt denn mein Fehler?

P.s. Code ist von "Luckie" hier aus der Delphi-Praxis )

[Der schöne Günther]

Der Doku zu BM_CLICK nach wäre es eine Idee mal zu schauen ob es daran liegt dass dein "Prog2" wohl nicht aktiv ist. Wie soll in einem nicht-aktiven Fenster auch ein Button gedrückt werden können?

Nur so als Idee...

[derseitzer]

Hört sich nach einem guten Grund an.. habe mal einen Timer vorgeschaltet, dann die andere Form angeklickt und gewartet.. passiert allerdings auch nichts .
Dann muss ich das wohl mit tasten simulationen machen? nicht sehr elegant

Also wie es scheint hat es schon jemand hinbekommen mit dem oben genannten befehl sendmessage(....)
http://www.delphipraxis.net/158316-b...anwendung.html

[himitsu]

Das sind deine Programme, also können/sollen sie sich "intern" unterhalten und garnicht erst versuchen ihre GUI zu misshandeln.

Stichwort: Inter-Process Communication (IPC) -> Pipes/NamedPips, MailSlots, MemoryMappedFiles (MMF), TCP/IP, richtige Messages (RegisterWindowMessage) uvm.

[ZYLAGON]

Hallo derseitzer,

ersetze einfach mal
SendMessage(hBtn, BM_CLICK, 0, 0); durch

Delphi-Quellcode:

SendMessage(hBtn, WM_LBUTTONDOWN, 0, 0);
SendMessage(hBtn, WM_LBUTTONUP, 0, 0);

ZYL

[himitsu]

Ach ja, Delphi-Fenster sind "Windows" (CreateWindow) und keine "Dialoge" (CreateDialog/CreateDialogIndirect).

BM_CLICK ist aber eine DialogMessage.

Und selbst wenn es ein Dialog wäre, sagt die Hilfe auch noch

Zitat:

Remarks
If the button is in a dialog box and the dialog box is not active, the BM_CLICK message might fail. To ensure success in this situation, call the SetActiveWindow function to activate the dialog box before sending the BM_CLICK message to the button.

Bei Windows verarbeitet das Control (hier der Button) selber seine Klick-Events und bei Dialogs steckt die Event-Behandlung im Dialog (das Hauptfenster)