Sendmessage an Dialogfenster

[Nimmersatt]

Hallo,

Wenn im Programm ein Dialogfenster erscheint, dann will ich per SendMessage ein bestimmtes Button anklicken, um mit dem Programm fortzufahren.

Hier ein Beispiel das nicht funktioniert

Var wndmain,wndchild: hwnd;

begin
MessageDlg('Message',mtConfirmation,[mbYes,mbNo],0); // beliebiges Dialogfenster

wndmain:= GetForegroundWindow; // aktives Fenster ermitteln (das ist dann das Dialogfenster ?)

wndchild:= FindWindowEx( wndmain, 0, nil, ‘ja‘); // Button ermitteln - liegt hier der Fehler ?

sendmessage(wndchild,bm_click,0,0); // Button ‚Ja‘ clicken

//jetzt soll das Programm fortfahren
end;


Mache ich es mir zu einfach ?

Mit Sendmessage beschäftige ich mich erst seit Kurzem, ich bitte also im Voraus meine Verständnisschwierigkeiten zu entschuldigen.