[quote="Crazymodder"]
Delphi-Quellcode:
procedure Timer.....
begin
Randomize;
Zufall := random (51) + 1;
if Zufall = 1 then
Keybd_Event(ord('A),0,0,0);
if Zufall = 2 then
Keybd_Event(ord('B'),0,0,0);
....... usw.
end;
Mir ist nicht so recht klar warum Du
bei random einen Maximalwert von 51 nimmst.
Du könntest doch auch mit der Funktion
randomRange arbeiten:
Delphi-Quellcode:
procedure Timer.execute
var
zufall:Integer;
begin
zufall:=randomRange(ord('A'),ord('Z'));
keybd_Event(zufall,0,0,0);
end;
Dann schenkst Du dir die ganzen if oder case Abfragen.
Grüße
Klaus