Windows herunterfahren ExitWin, und was ist mit VISTA?

[DelphiPeter]

http://www.delphipraxis.net/internal...herunterfahren

Ich benutze diesen Tip um mein Windows herunterzufahren aber mit Vista geht das nicht, weiß jemand warum?

Peter

[DGL-luke]

Benutzt du auch den Code aus dem zweiten Beitrag?

[DelphiPeter]

Ja, funktioniert nur leider nicht :-(

[Luckie]

Zitat:

Zitat von DelphiPeter

Ja, funktioniert nur leider nicht :-(

Und was sagt GetLastError nach dem Aufruf?

[DelphiPeter]

Wie zeige ich den Fehler an mit GetLastError? Habe das noch nie benutzt?

[Luckie]

Zitat:

Zitat von DelphiPeter

Wie zeige ich den Fehler an mit GetLastError? Habe das noch nie benutzt?

Etwas Eigeninitiative bitte. Eine suche im Forum nach GetLasterror sollte dir genug Beispiele geben, wie man GetLastError verwendet. Oder man guckt mal in der Hilfe, dem Windows SDK, nach.

[emsländer]

Hi,

hiermit klappt das auch mit Vista (auch 64Bit):

Delphi-Quellcode:

function TFrmMain.MyExitWindows(RebootParam: Longword): Boolean;
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
        Windows.AdjustTokenPrivileges(TTokenHd,
                                      False,
                                      TTokenPvg,
                                      cbtpPrevious,
                                      rTTokenPvg,
                                      pcbtpPreviousRequired);
    end;
  end;
  Result := ExitWindowsEx(RebootParam, 0);
end;

Aufruf:

Delphi-Quellcode:

procedure TFrmMain.Button2Click(Sender: TObject);
begin
  MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;

Gruss

EL

[Luckie]

Genau der Code ist auch oben schon verlinkt worden.