PC herunterfahren

[HemSA]

Hallole,
mit dieser Procedure klappt es bei mir auch unter Win2000 ( habe ich noch woanderst gefunden ).
Es ähnelt sich sehr mit der vorherigen Ausführung, ist aber eben nicht das Gleiche. Was da genau in jeder Zeile passiert verstehe ich ehh nicht.

Code: Alles auswählen

#EWX_LOGOFF   = 0 
#EWX_SHUTDOWN = 1 
#EWX_REBOOT   = 2 
#EWX_FORCE    = 4 
#EWX_POWEROFF = 8 

Procedure Shutdown( flags.l ) 
  Privileges.TOKEN_PRIVILEGES 
  OpenProcessToken_(GetCurrentProcess_(), 40, @hToken) 
  Privileges\PrivilegeCount           = 1 
  Privileges\Privileges[0]\Attributes = #SE_PRIVILEGE_ENABLED 
  LookupPrivilegeValue_(0, "SeShutdownPrivilege", @Privileges\Privileges[0]\Luid) 
  AdjustTokenPrivileges_(hToken, 0, @Privileges, 0, 0, 0) 
  CloseHandle_(hToken) 
  ExitWindowsEx_(flags, 0) 
EndProcedure 

;Beispiel: ACHTUNG Speichern vorm ausprobieren!!! 
Shutdown( #EWX_REBOOT ); oder eben andere Konstanten von oben angeben, je nach Wunsch und Absicht

[jear]

Hier meine Lösung des Problems als exe zum Download (45 KB).

Start stets über Desktop-Shortcuts und Parameter.
Einfaches Starten ohne Alles zeigt die Parameter, die man angeben kann.
Mit dem Testmodus (Parameter /T) kann man jede Wirkung verhindern.

Läuft bei mir unter XP zuverlässig und sauber. Mit anderen Systemen nicht getestet, sollte aber eigentlich laufen.

Bei Interesse, fixe ich die Quelle auf und poste sie.

[Falko]

@jear,

Könntest du in deinem Shutdown auch Wochentagsvorgaben machen?

Z.B. /W: Sa,So

Gruß, Falko

[Bisonte]

Auch wenn es von 2007 ist...

Der Code von HemSa läuft auch unter Windows 7, nur obs auch funktioniert,
wenn eine Anwendung hängt, weiss ich nicht, da es bei mir noch nicht auftrat.

[ts-soft]

Auch wenn es von 2007 ist...

Der Code von HemSa läuft auch unter Windows 7, nur obs auch funktioniert,
wenn eine Anwendung hängt, weiss ich nicht, da es bei mir noch nicht auftrat.

Dafür ist das Flag: #EWX_FORCE

[Bisonte]

Code: Alles auswählen

Shutdown( #EWX_REBOOT|#EWX_FORCE  )

So meinst Du ?

[ts-soft]

So mein ich

[Bisonte]

Gratiam habere.