Random Probelm

[Klaus01]

[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