Rechner Herunterfahren geht nicht

[franktron]

Meine Programm soll den PC Runterfahren, tut es aber nicht es beendet sich zwar aber der PC bleibt an.

Hier der Code
http://www.delphipraxis.net/29-abmel...-98-me-nt.html

Delphi-Quellcode:

if Buffer='SHUTDOWN' then
  Begin
    ExitWin(EWX_SHUTDOWN);
    Close;
  End;

[Helmi]

Hallo,

ich nutz folgenden Code um runterzufahren, etc., und das ohne Probleme.

Delphi-Quellcode:

function ExitWindows(RebootParam: Longword): Boolean;
//mögliche RebootParam:
//EWX_SHUTDOWN or EWX_FORCE = shutdown
//EWX_REBOOT or EWX_FORCE   = reboot
//EWX_LOGOFF or EWX_FORCE   = logoff
//
//EWX_FORCE - Die aktiven Prozesse werden zwangsweise und ohne Rückfrage beendet.

var
  TTokenHd              : THandle;
  TTokenPvg             : TTokenPrivileges;
  cbtpPrevious          : DWORD;
  rTTokenPvg            : TTokenPrivileges;
  pcbtpPreviousRequired : DWORD;
  tpResult              : Boolean;

const
  SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';

begin
  If Win32Platform = VER_PLATFORM_WIN32_NT then
    begin
      tpResult := OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
                                    TOKEN_QUERY, TTokenHd);

      If tpResult then
        begin
          tpResult := LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME, TTokenPvg.Privileges[0].Luid);

          TTokenPvg.PrivilegeCount            := 1;
          TTokenPvg.Privileges[0].Attributes  := SE_PRIVILEGE_ENABLED;
          cbtpPrevious                        := SizeOf(rTTokenPvg);
          pcbtpPreviousRequired               := 0;

          If tpResult then
            AdjustTokenPrivileges(TTokenHd, false, TTokenPvg, cbtpPrevious,
                                  rTTokenPvg, pcbtpPreviousRequired);
        end;
    end;

  Result := ExitWindowsEx(RebootParam, 0);
end;

Aufruf:

Delphi-Quellcode:

  //Benutzer abmelden
  ExitWindows(EWX_LOGOFF or EWX_FORCE)

  //Windows neu starten
  ExitWindows(EWX_REBOOT or EWX_FORCE)

  //Windows herunterfahren
  ExitWindows(EWX_SHUTDOWN or EWX_FORCE)

[franktron]

Danke jetzt gehts Force musste noch dazu

[jaenicke]

Wobei Force zu Datenverlust führen kann, siehe Doku... Denn da wird WM_QUERYENDSESSION nicht aufgerufen und Programme ggf. abgeschossen.

[arnof]

Seit WIN7 gibt es immer mal Situationen, das manche sich manche Programme einfach nicht beenden wollen, ich habe deshalb die Lösungen:

Ich sende erstmal ohne Force und lasse mein Programm offen und starte einen Timer von 30sec ist mein programm noch da, weil irgendwer das Runterfahren verhindert, sende ich nochmals mit Force

[Der schöne Günther]

Und wer garantiert dir, dass Windows dein Programm zu allerletzt beenden möchte?

[DeddyH]

Man könnte es ja auch erst einmal mit EWX_FORCEIFHUNG ($00000010) versuchen.

[arnof]

Zitat von Der schöne Günther:

Und wer garantiert dir, dass Windows dein Programm zu allerletzt beenden möchte?

Ganz einfach, mein Programm ist eins, was sich nicht beendet Alle anderen können schön Ihre Daten speichern, so das es kein Datenverlust gibt.