Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
27. Jul 2008
procedure TMain.TiShutdownTimer(Sender: TObject);
begin
if SysUtils.Time >= Frac(DTPUhrzeit.Time) then
begin
MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;
end;
das hab ich jetzt so versucht... aber damit fährt der Rechner sich wieder sofort runter... :wall:
Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
26. Jul 2008
erstmal danke für eure hilfe, aber mit der function funktioniert es leider nur bedingt...
also wenn ich:
procedure TMain.TiShutdownTimer(Sender: TObject);
begin
if SysUtils.Time >= DTPUhrzeit.Time then
begin
MyExitWindows(EWX_POWEROFF or EWX_FORCE);
Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
25. Jul 2008
Also muss ich was tun damit es funktioniert???
Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
25. Jul 2008
Welche Rechte brauch ich da denn?? Ich bin eigtl. Admin meines Rechners^^
Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
25. Jul 2008
Die Idee ist ja prinzipiell erstmal gut, aber leider funktioniert es trotzem noch nicht...
Forum: Object-Pascal / Delphi-Language
Delphi
by Forlan,
25. Jul 2008
Hi, ich bin grad dabei ein Programm zu schreiben, welches windows zu einer bestimmten Uhrzeit herunterfährt (ich weiß, gibts viele von, möchte aber es mal selber versuchen^^)...
Aber wo ist hier mein Fehler?
procedure TMain.TiShutdownTimer(Sender: TObject);
begin
if Time = DTPUhrzeit.Time then //DTPUhrzeit = DateTimePicker
begin
...