Zitat von
microhome:
So, bisher habe ich folgendes:
procedure TForm4.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=1 to 10 do // = 10 Mal
begin
Keybd_Event(Ord('A'),0,0,0);
sleep (1000);
Keybd_Event(Ord('A'),0,KEYEVENTF_KEYUP,0);
sleep(10000); // alle 10 Sek
end;
end;
Also zum testen alle 10 Sek statt 15 Min. Nur nun habe ich durch die for-Schleife das Problem, dass ich das Ganze nicht stoppen kann. Ich könnte auf die Form noch einen Button für stop legen, aber ich kann ja die Form nicht mehr aufrufen (solange die Schleife läuft)...
Was kann ich da machen? Helfen SpeedButton da weiter?
m!cro
Anstelle einer Schleife könntest Du einen Timer benutze der alle 10 Sekunden ausgelöst wird.
Mit einem Button könntest Du den Timer von enabled auf disabled stellen um die Aktionen
zu starten oder zu unterbrechen.
Grüße
Klaus