Entwickler-Ecke
Dateizugriff - Timer
Susan - Mo 29.07.02 15:13
Titel: Timer
Hallo!
Ich möchte nach 20 sec. das der Rechner runterfährt.
Hab schon folgendes versucht.
Quelltext
1:
2:
3:
4:
| Timer1.Interval := 20000;
if timer1.Interval = 20000 then
exitwindowsex(EWX_Reboot,0); |
Das Problem ist aber da ich Timer1.interval den wert 20 000 geben habe.
Den für die If Anweisung ist dadruch ja immer diese = 20000.
Hat jemand vieleicht noch eine Idee was ich da machen könnte?
Udontknow - Mo 29.07.02 15:30
Hallo!
Du musst nicht das Intervall prüfen (wie du selbst festgestellt hast, ist das immer 20000), sondern das herunterfahren im Timer-Ereignis OnTimer1Timer reinschreiben!
Quelltext
1:
2:
3:
4:
| procedure TForm1.OnTimer1Timer(Sender:TObject);
begin
exitwindowsex(EWX_Reboot,0);
end; |
Cu,
Udontknow[/code]
cbs - Mo 29.07.02 15:32
Tag auch
du mußt auf das ereigniss OnTimer reagieren das der Timer auslöst wenn die Zeit um ist (in deinem fall 20sec)
dort schreibst du deinen code rein (shutdown).
natürlich muss die eigenschaft Enabled des Timers auf true sein!
cbs - Mo 29.07.02 15:33
war schon wida einer schneller *grummel* :wink:
Susan - Mo 29.07.02 15:58
danke :D
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!