SendKey an ein Programm

[hille]

Hi Leute,
ich will mitHilfe von SendKey von meinem Programm aus, das 20 sec lang in dem Spiel die Taste ENTER hintereinander gedrückt wird. Ich habe einen Systemweiten Hotkey registriert, welcher dieses Starten soll. Aber irgendwie klappt es nicht so.

Denn, die EnterTaste wird nur ab und zu mal gedrückt.

Ich habe es mal mit nem Timer und ner Schleife probiert aber es kommt ihrgendwie nicht an.
Hat einer ne Idee wie es gehen könnte?

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DXClass, sendkeys;
...
  private
    { Private-Deklarationen }
    idX: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HotKey;
  public
...
implementation

{$R *.dfm}

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = idX then 
  if enterdruecken then begin      
    enterdruecken:=false;    //wenn schon enter gedrückt wird wird aus gestellt
    DXTimer1.Enabled:=false;
  end
  else begin
    enterdruecken:=true;     //wenn kein enter gedrückt wird wird an gestellt
    DXTimer1.Enabled:=true;          
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
const
  MOD_CONTROL = 2;
  VK_X = $58;  // oder mit X
begin
//Register HotKey STRG
idX := GlobalAddAtom('HotKeyX');
RegisterHotKey(Handle,idX, MOD_CONTROL, 0);   //NUR STRG
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,idX);
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
var handle : HWND;
    s : TSendKeys;
begin
handle:=FindWindow(nil,'Vampires Dawn');
if handle<>0  then begin
  s.SendKeysTo('Vampires Dawn',#242);
end;

Erklärung:

Wenn ich die STRG Taste drücke dann startet der Timer und sendet alle paar Millisekunden das die ENTER Taste gedrückt wird.
Wenn ich dann wieder auf STRG klicke stopt der Timer.

Hille