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 15: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 16: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 23:10 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