Shut up - Minimalistisches Runterfahren

[Thunderchild]

Hallo zusammen,

wenn ich abends n Video ansehe, schlaf ich gelegentlich dabei ein
Am nächsten Tag läuft das Video noch - und damit natürlich auch der Rechner.
Man könnte jetzt im Windows irgendwas in den Energieoptionen einstellen oder eine Aufgabe planen. Aber einfacher geht es hiermit:

Was macht es?
Shut up fährt den Rechner nach einstellbarer Zeit runter, in den Ruhezustand oder Standby. Dadurch wird das Video zum Schweigen gebracht, was mich dann auf den Namen "Shut up" brachte, weil ichs halt ungern Shutdown nennen wollte.

Da ich zum Zeitpunkt des Bedarfs kein Internet hatte, hab ichs mir halt selber geschrieben. Das Runterfahren ging auf Anhieb natürlich nicht, weshalb ich dann doch die DP konsultieren mußte.
Ich hab nur zwei andere Programme hier gefunden, die das auch können, von daher hoffe ich mal, daß ich nicht mangels Interesse links liegen gelassen werde.

Kleine Anleitung:
Einfach nur Aktion und Dauer bis dahin einstellen und auf Start drücken. Daraufhin minimiert sich das Prog in den Tray und zeigt dort die Restzeit an. Die letzten 12 Minuten mit einer Roten Uhr, die Zeit davor wird mit einer grünen Uhr in 12 gleiche Teile eingeteilt und angezeigt. Im Hint steht dann die genaue Zeit drin. Zum Beginn der letzten Minute kommt es in den Vordergrund zurück, um nochmal zu erinnern, daß es gleich den Rechner abschaltet. Da hat man nochmal Gelegenheit, abzubrechen.

To do:
Ton als Erinnerung (was aber eine INI-Implementierung erforderte, wozu ich keine Lust mehr hatte )
Eingabe einer Uhrzeit

In diesem Sinne...

[btbe]

Kannst du mir vielleicht sagen welchen befehl du verwendest um den pc in den ruhezustand zu versetzen?

schon mal danke

[Thunderchild]

Puh. Wie oben erwähnt, habe ich letztlich den Code für die Rechte aus der DP.

Um sie sich zu besorgen, damit man den Rechner ausschalten darf, zuerst das hier ablaufen lassen:

Delphi-Quellcode:

procedure GetPrivileges;
var vi      : TOSVersionInfo;
    hToken  : THandle;
    tp      : TTokenPrivileges;
    h       : DWord;
begin
  //result := false;
  vi.dwOSVersionInfoSize:=SizeOf(vi);
  GetVersionEx(vi);
  if vi.dwPlatformId = VER_PLATFORM_WIN32_NT then // Windows NT
  begin
    // Achtung bei Delphi 2 muß @hToken stehen ... !!!! ?????
    OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES,hToken);
    LookupPrivilegeValue(nil,'SeShutdownPrivilege',tp.Privileges[0].Luid);
    tp.PrivilegeCount := 1;
    tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    h := 0;
    AdjustTokenPrivileges(hToken,False,tp,0,PTokenPrivileges(nil)^,h);
    CloseHandle(hToken);
//    result := ExitWindowsEx(flag,0);
  end
  else // Windows 95
  begin
//    Result := ExitWindowsEx(flag,0);
  end;
end;

Der hier auskommentierte Befehl ExitWindowsEx sorgt für das Abschalten. Aber aus ablauftechnischen Gründen habe ich das in einen anderen Teil des Programmes verschoben, um es in mein Interface zu integrieren:

Delphi-Quellcode:

  if cbShutdown.Checked then flags:=EWX_POWEROFF else
  if cbRestart.Checked then flags:=EWX_REBOOT;

  if flags<>0 then begin
    if cbNoWarnings.Checked then flags:=flags+EWX_FORCE;
    ExitWindowsEx(flags,0);
  end else SetSystemPowerState(cbStandBy.checked,true);

cbShutdown und cbRestart sind die Radios für die Auswahl. Flags ist ein dword.
cbNoWarnings sorgt dafür, daß die Programme beim Runterfahren ohne Nachfrage geschlossen werden.

Wenn also Runterfahren oder Neustart gewählt ist, wird dann ExitWindowsEx ausgeführt.
Für Standby und Ruhezustand dann SetSystemPowerState mit dem Parameter, ob es ein Standby sein soll oder nich.

[btbe]

Dankeschön!!!