Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Bestimmte Tasten in einer fremden MessageBox drücken (https://www.delphipraxis.net/27696-bestimmte-tasten-einer-fremden-messagebox-druecken.html)

EiRoGGe 14. Aug 2004 07:06


Bestimmte Tasten in einer fremden MessageBox drücken
 
Hallo allerseits,

das Problem, um welches es hier geht, ist sozusagen ein weiterführendes aus einem anderen Thread. Wer nachlesen möchte: http://www.delphipraxis.net/internal...ct.php?t=31767.

Es geht darum, dass ich aus einer Office-Fehlermeldung den Fehlertext in Delphi bekommen wollte. Mit ein bisschen probieren und der klasse Hilfe von euch hat das dann auch recht schnell geklappt.

Nun würde ich gern in selber MessageBox zwei Tastendrücke auf der Tastatur simulieren um einen Button in der MessageBox zu drücken.

Was ich bisher probiert habe:

hWnd := FindWindow(nil,'Microsoft Office Professional Edition 2003');
hWnd := GetWindow(hWnd,GW_CHILD);
SendMessage(hWnd,WM_KEYDOWN,VK_TAB,1);
SendMessage(hWnd,WM_KEYUP,VK_TAB,1);
SendMessage(hWnd,WM_KEYDOWN,VK_RETURN,1);
SendMessage(hWnd,WM_KEYUP,VK_RETURN,1);

Leider ohne Erfolg. Ich weiß nicht, ob es auch direkte Befehle in der Windows API gibt einen Button im Fremdfenster zu drücken, das wäre natürlich auch eine gute Lösung.

Im Moment habe ich es über simulierte Mausklicks gelöst, aber das funktioniert nicht wirklich gut. ;)

Danke für eure Hilfe :)

Luckie 14. Aug 2004 09:34

Re: Bestimmte Tasten in einer fremden MessageBox drücken
 
Such dir mit MSDN-Library durchsuchenFindWindowex den Button und schick ein MSDN-Library durchsuchenBM_CLICK an den Button oder mit MSDN-Library durchsuchenwm_command ein MSDN-Library durchsuchenBN_CLICK mit der Button ID an das Hauptfenster.

EiRoGGe 14. Aug 2004 11:00

Re: Bestimmte Tasten in einer fremden MessageBox drücken
 
Danke, Problem gelöst :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz