Re: Tastensimilation an Programm senden
Zitat:
kann mir jemand ein Code Beispiel geben? |
Re: Tastensimilation an Programm senden
Hast du SendInput auch probiert?
|
Re: Tastensimilation an Programm senden
SendInput ist ein Aufsatz auf keybd_event. Es sollte sich also gleich verhalten.
Poste doch mal die bisherigen Sourcen. |
Re: Tastensimilation an Programm senden
Hier der aktuelle Source-Code:
Delphi-Quellcode:
Strg wird jetzt zwar simuliert, aber nicht, das die Taste während der Eingabe von "pesos" weiterhin gedrückt wird!
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SRUtils; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private ID1:Integer; PROCEDURE WMHOTKEY(VAR MSG: TWMHOTKEY); MESSAGE WM_HOTKEY; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} PROCEDURE TFORM1.FORMCREATE(SENDER: TOBJECT); BEGIN ID1 := GLOBALADDATOM('HOTKEY1'); REGISTERHOTKEY(HANDLE, ID1, 0, ORD('B')); END; PROCEDURE TFORM1.WMHOTKEY(VAR MSG: TWMHOTKEY); BEGIN IF MSG.HOTKEY = ID1 THEN begin Keybd_Event(VK_CONTROL,0,0,0); sendkeys('pesos'); Keybd_Event(VK_CONTROL,0,KEYEVENTF_KEYUP,0); end; END; PROCEDURE TFORM1.FORMDESTROY(SENDER: TOBJECT); BEGIN UNREGISTERHOTKEY(HANDLE, ID1); GLOBALDELETEATOM(ID1); END; end. |
Re: Tastensimilation an Programm senden
Muss man denn alles zweimal schreiben?
Die beiden ersten Parameter von keybd_event muessen ausgefuellt werden. Zusaetzlich wuerde ich alle Keycodes mit keybd_event verschicken. |
Re: Tastensimilation an Programm senden
Kannst du mir dann bitte ein Beispiel mit Code geben?
Währe sehr hilfreich! |
Re: Tastensimilation an Programm senden
Da muss ich noch ein bischen rumexperimentieren. "MapVirtualKey(VK_CONTROL, 0) shl 16" ist glaube ich die korrekte Berechnung fuer den zweiten Parameter.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:19 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