Thema: Delphi Tastendruck simulieren

Einzelnen Beitrag anzeigen

Benutzerbild von vlees91
vlees91

Registriert seit: 19. Apr 2004
843 Beiträge
 
Turbo Delphi für Win32
 
#1

Tastendruck simulieren

  Alt 20. Apr 2004, 15:40
Hallo,

weiß jemand, wie man mit Delphi 6 eine Taste simuliert, aber diese soll von einem inaktiven(!!!), nicht zu meinem Projekt gehörenden, Prog erkannt werden. Z.B.: Ich drücke Z und an Notepad wird ein B geschickt.

Ich habe einen Quellcode von Ensacom.de, der aber einen Fehler verursacht:

Delphi-Quellcode:
//Zuerst ermittelt man das Fensterhandle mit folgender Anweisung:

  FindWindow((Fensterklasse,wenn bekannt),Fenstertitel).

//Anschließend holt man das Fenster mit

  SetForegroundWindow(Fensterhandle)nach vorn. //Dies ist jedoch nicht notwendig.

{
Nun kann man mit keybd_event eine Tastenkombination an das Fenster schicken.
Wenn man mit FindWindowEx(ParentHandle, nil,nil,nil) rekursiv die entfernte
Anwendung
nach dem gewünschten Button durchsuchen lässt, kann man hinterher folgende
Messages senden:
}


  PostMessage(Handle.Kind,WM_LBUTTONDOWN,MK_LBUTTON,0);
  PostMessage(Handle.Kind,WM_LBUTTONUP,0,0);

//Und schon wird der Button gedrückt.
Allerdings meint Delphi, dass (bei den beiden "PostMessage-Zeilen") Handle.Kind falsch ist.


Tschüss
der auf Antwort wartende Jasper
vlees91
  Mit Zitat antworten Zitat