GetAsyncKeyState und Keybd_Event richtig verwenden

[TheAn00bis]

Hey,

[verdammter Browser, musste das zwei mal schreiben - grrrr...]

ich möchte immer wenn die CTRL-Taste gedrückt wird die Leertaste virtuell drücken.

Dazu verwende ich momentan folgenden Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if enabled then enabled := false
    else enabled := true;
while enabled do
begin
      if (GetAsyncKeyState(VK_CONTROL) and $8000) <> 0 then Keybd_Event(VK_SPACE,0,0,0);
      Application.ProcessMessages;
end
end;

Ist unschön und aufwändig, aber es soll schnell gehen und ich hab mich noch nie mit Hooks befasst.
Allerdings wird VK_SPACE nicht einmal, sondern ca. 100mal gesendet.

Warum?