Frage bezüglich Windows Herunterfahren...Wo ist mein Fehler?

[Forlan]

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?

Delphi-Quellcode:

procedure TMain.TiShutdownTimer(Sender: TObject);
begin
   if Time = DTPUhrzeit.Time then  //DTPUhrzeit = DateTimePicker
            begin
              ExitWindowsEx(EWX_SHUTDOWN, 0);
            end;
end;

Vielen Dank im Vorraus :-D

MfG

[Die Muhkuh]

Überprüf auf >= und nicht auf Gleicheit.

[Forlan]

Zitat:

Zitat von Die Muhkuh

Überprüf auf >= und nicht auf Gleicheit.

Die Idee ist ja prinzipiell erstmal gut, aber leider funktioniert es trotzem noch nicht...

[DeddyH]

Außerdem fehlen möglicherweise die Rechte.

[Forlan]

Zitat:

Zitat von DeddyH

Außerdem fehlen möglicherweise die Rechte.

Welche Rechte brauch ich da denn?? Ich bin eigtl. Admin meines Rechners^^

[Phoenix]

Delphi-Quellcode:

procedure TMain.TiShutdownTimer(Sender: TObject);
begin
   if Time = DTPUhrzeit.Time then  //DTPUhrzeit = DateTimePicker
            begin
              ExitWindowsEx(EWX_SHUTDOWN, 0);
            end;
end;

Was ist denn "Time"?
Wo packst Du da die aktuelle Uhrzeit drauf?

[DeddyH]

SysUtils.Time - gibt die aktuelle Uhrzeit zurück :zwinker:

[edit] @forlan: schau mal hier [/edit]

[API]

Zitat:

Zitat von Forlan

Aber wo ist hier mein Fehler?

Der "Fehler" ist, dass du nicht angegeben hast, was Time für ein Typ ist, was DTPUhrzeit ist , ob die if Abfrage True zurück gibt, unter welchem System du den Code getestet hast, ob du schon mal nach ExitWindowsEx gegoogelt hast etc.

[Phoenix]

Zitat:

Zitat von DeddyH

SysUtils.Time - gibt die aktuelle Uhrzeit zurück :zwinker:

Wird aber nicht aufgerufen, wenn er eine andere Variable namens Time im Scope (z.B. Klasse, schlimmstenfalls Unit) hat.

[Forlan]

Also muss ich was tun damit es funktioniert???

[Die Muhkuh]

Die von Detlef gepostete Funktion nutzen :zwinker:

[Forlan]

erstmal danke für eure hilfe, aber mit der function funktioniert es leider nur bedingt...

also wenn ich:

Delphi-Quellcode:

procedure TMain.TiShutdownTimer(Sender: TObject);
begin
   if SysUtils.Time >= DTPUhrzeit.Time then
     begin
       MyExitWindows(EWX_POWEROFF or EWX_FORCE);
     end;
end;

schreibe, fährt der Rechner garnicht runter, und wenn ich:

Delphi-Quellcode:

procedure TMain.TiShutdownTimer(Sender: TObject);
begin
   if now >= DTPUhrzeit.Time then
     begin
       MyExitWindows(EWX_POWEROFF or EWX_FORCE);
     end;
end;

fährt der Rechner sofort runter, egal welche Zeit ich eintrage... was ist denn jetzt noch falsch?

[Hawkeye219]

Hallo Marcel,

der DateTimePicker liefert - entgegen der Dokumentation - in den Eigenschaften Date und Time immer Datum und Uhrzeit. Du musst also den Zeitanteil mit der Funktion Frac herausschneiden.

Gruß Hawkeye

[Forlan]

Delphi-Quellcode:

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: