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)