Windows XP beenden

[mirage228]

Zitat von malo:

Auch das hab ich schon eingebaut... ich bin grad völlig verzweifelt! Anscheinend mach ich alles richtig, nur es geht nicht

Wobei das herunterfahren sogar klappt, mit WinExec

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  winexec('shutdown.exe -s', 1);
end;

Nur wollte ich ja verhindern, dass dieser "in 30 sekunden wird der rechner heruntergefahren"-dialog kommt, und der Rechner außerdem sofort herunterfährt, ohne auf nichtgespeicherte Daten rücksicht zu nehmen...

Hi,

wenn Du als Admin angemeldet bist bzw. die erforderlichen besitzt, dann MUSS diese Funktion funktionieren:

Delphi-Quellcode:

// uses Windows

function ExitWin(flag:word): Boolean; 
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;

Probiers mal aus

mfG
mirage228

Edit: WinExec wird von Microsoft als "obsolete" bezeichnet, da es nur der Kompatibilität zu Win16 Anwendungen dient. Es soll nicht mehr verwendet werden. Verwende ShellExecute oder CreateProcess