Tastaturdruck Emulieren

[Christian Seehase]

Moin Silent,

wenn Du nicht das Handle hast, an das Du die Taste schicken willst, musst Du es mit keybd_event machen.
Dabei stehst Du mit Deiner Umsetzung allerdings vor einem Problem:
keybd_event wirkt sich auf das Fenster aus, das den Tastaturfokus hat, was automatisch Deines ist, wenn Du dabei einen Button anklickst.

Nimm mal einen Button und einen Timer und mach mal das Notepad auf.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  keybd_event(VK_SHIFT,0,0,0);
  keybd_event(ord('A'),0,0,0);
  keybd_event(ord('A'),0,KEYEVENTF_KEYUP,0);
  keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Button1Click(nil);
end;

Als erstes startest Du Dein Programm mal mit Timer1.Enabled := false, wechselst auf das Notepad, und klickst dann den Button in Deinem Formular an. Im Notepad rührt sich nichts.
Jetzt noch einmal das gleiche mit aktiviertem Timer.
Es werden im Sekundenabstand A in das Notepad geschrieben.

Im ersten Fall hat der Button den Tastaturfokus, und erhält das A, darum klappt es nicht.