sendmessage funktioniert nicht :(

[seddto1977]

Ok hier der Code

Code:

While Never = False do
  begin
    application.processmessages;
    HB := FindWindow(nil, 'Microsoft Word');
    
  IF (HB <> 0) and (IsWindow(HB)) then
    begin
     hApp := HB;
     hButton := FindWindowEx(hApp, 0, nil, 'NO');
       
      if IsWindow(hButton) then
        begin
          SendMessage(hButton, BM_CLICK, 0, 0);
          
        end;
       end;
      end;

Ich bin mir aber eigentlich fast sicher das der code funktioniert, denn wie gesagt so bald das gesuchte Fenster sich öffnet (in diesem Fall eine Word-Fehlermeldung die erzeugt wird wenn Word eigentlich geschlossen ist - also kein Problem mit doppelten Fenstern)ist der Button der geclickt werden soll auch schwarz umrahmt wie wenn er manuell geklickt wird und der schwarze Rahmen flimmert so als ob der Button oft hintereinander geklickt wird...aber es passiert nix...erst beim manuellen klick. Könnte es vielleicht sein das MS Winapi Befehle wie sendmessage für eigene Programme abgeschaltet hat??


@SirThornberry

Wie kann ich mir denn die Mausposition von dem Button holen damit ich dann den Zeiger dahinsetzen und klicken kann?