Windows XP beenden

[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...

[mirage228]

Zitat:

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

[malo]

1. Frag mich nicht, warum die Funktion nicht geht, aber es ist halt so. Ich wundere mich da auch schon. Es geht einfach nicht :(

2. Dass WinExec nicht mehr genutzt werden soll, weiß ich, aber das war bisher die einzige Möglichkeit, die ich gefunden hab. Und um das in ShellExecute umzuschreiben, bin ich jetzt zu faul, grundsätzlich weiß ich es jedoch und werd es auch so gut wie immer mit ShellExecute machen ;)

[phlux]

Zitat:

Zitat von Luckie

Ach wenn du Admin bist, muss du dir die Rechte zum Runterfahren erst aktivieren.

das war das was ich ihn schon vor nen paar psts vorher gefragt hab :roll:

[masters001]

Hallo

Hab den Code (mirage228/ 24.10.2004, 18:31 )bei mir im prog eingefügt und es funktioniert wunderbar.
das Problem ist jetzt nur noch das der PC sich nicht ausschaltet sondern da steht "Sie können den PC jetzt ausschalten."

Gruß
masters001

[fkerber]

Hi!

Und beim normalen Runterfahren ist das nicht so?


Ciao Frederic

[masters001]

Hi fkerber


Nein beim normalen runterfahren

start - Ausschalten - Ausschalten

schaltet sich der pc automatisch aus!

[Mystic]

Versuch mal EWX_POWEROFF anstatt EWX_SHUTDOWN.

Die PSDK sagt zu EWX_SHUTDOWN:

Specifying this flag will not turn off the power even if the system supports the power-off feature. You must specify EWX_POWEROFF to do this.

[emsländer]

Welche von diesen Funktionen kann ich denn nutzen, um einen Server im Notfall zu rebooten?

Hintergrund: Wir haben einen Windows 2003 Server mit dem ISA 2004 drauf, der sich nach der Zwangstrennung irgendwie verläuft. Die AutoDialUp klappt nicht immer wie sie soll und der Server hängt (sogar von intern kommt man nicht mehr an die Mühle dran).

Als vorläufigen Workaround hatte ich angedacht einen Dienst zu schreiben, der (per Timer) alle 60 sek nachschaut, ob die INET-Verbindung steht. Wenn nicht, nach 10 Minuten den Kasten brutal rebooten.



Gruss

EL

[emsländer]

In der Codelib fand ich folgende Funktion:

Delphi-Quellcode:

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;

Nun meine Frage: Wo baue ich da das Flag: EWX_FORCE ein?


Gruss

EL