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/)
-   -   Tastendruck an ein anders Programm schicken (https://www.delphipraxis.net/178882-tastendruck-ein-anders-programm-schicken.html)

Dumpfbacke 2. Feb 2014 16:27

Tastendruck an ein anders Programm schicken
 
Hallo Leute,
so langsam verstehe ich nichts mehr.
Ich möchte mit meinen Programm ein anderes Programm steuern und hierzu einen Auswahl im Menu treffen und dann einen Text senden. Ich habe es einmal mit dem Editor versucht. Nun leider geht es absolut nicht.

Delphi-Quellcode:
wndMain := FindWindow('Notepad','Unbenannt - Editor');
    if wndMain <> 0 then
     begin
      Label1.Caption := 'Fenster gefunden !!';
      Label2.Caption := Inttostr(wndMain);
      Sleep(2000);
      PostMessage(wndMain, WM_KeyDown, VK_Menu,0);
      PostMessage(wndMain, WM_KeyDown, Ord('O'),0 );
      PostMessage(wndMain, WM_KeyUp, VK_Menu,0);
      PostMessage(wndMain, WM_KeyUp, Ord('O'),0);
      Sleep(1000);
      PostMessage(wndMain, WM_KeyDown, VK_Menu,0);
      PostMessage(wndMain, WM_KeyDown, Ord('S'),0 );
      PostMessage(wndMain, WM_KeyUp, VK_Menu,0);
      PostMessage(wndMain, WM_KeyUp, Ord('S'),0);

      PostMessage(wndMain, WM_KeyDown, Ord('J'),0);
      PostMessage(wndMain, WM_KeyUp, Ord('J'),0);
Ich möchte es gene an die Anwednung schicken damit ich mir auch sicher bin das es bei der richtigen Anwendung ankommt. HIer geht leider überhaupt nichts

Wenn ich die Anwendung in den Vordergrund hole und ein

Delphi-Quellcode:
     keybd_event(ord('A'),0,0,0);
            keybd_event(ord('A'),0,Keyeventf_keyup,0);
dann geht e.
Es muss doch möglich sein eine Taste an eine Programm zu schicken was nicht unbedingt im Vordergrund ist. Oder ?

Tanja

DeddyH 2. Feb 2014 17:22

AW: Tastendruck an ein anders Programm schicken
 
Zumindest für das Menü könnte ich das hier anbieten: http://www.delphipraxis.net/158387-a...e-klicken.html


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:28 Uhr.

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