Tasten senden problem

[Assun]

Hi !

was bitte ist denn an diesem code falsch ?

Delphi-Quellcode:

procedure Cheat(myString : String);
var
  c : Cardinal;
  i : integer;
  s : String;
begin
  c:=FindWindow(nil,'GTA: San Andreas'); //Get WindowHandle
  if c=0 then
  begin
    MessageDlg('Sie müssen das Spiel zuerst starten !',mtwarning,[mbOK],0);
    Exit;
  end;
for i := 1 to Length(mystring) do
SendMessage(c, WM_CHAR, Ord(mystring[i]), 0); //send Keys
CloseHandle(c);
end;

procedure TForm1.WMHotKey(var msg: TMessage);
begin
if (msg.WParam = 1) then Cheat('LXGIWYL');       // you can choose any number ( up to 4000 )

end;

er bringt mir immer ne exception (die is nie zu sehen) also der debugger mein ich.

und bewirken tuts gar nix

Findet ihr da nen fehler ?

Gruß Assun

edit // geemacht. nu bringt er mir Externe Exception XXXX (nen paar zahlen)

edit // Wieder geändert. es folgt die gleiche exception

kennts sich damit jemand aus?

Edit :// habe diesen wahnsinnscode gefunden : http://www.swissdelphicenter.ch/de/showcode.php?id=220

ich habe es aber auch schonmal mit nur 4 Zeilen geschafft. Ich weiss nur nicht mehr wie

// Code wieder geändert und wieder ne wunderschöne exception (anhang)