Shutdown Befehl auf Windows 7

[XBladerX]

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

das hab ich versucht ... der logoff befehl funktioniert einwandfrei ... der rest aber nicht ....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExitWindowsEx(EWX_SHUTDOWN, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ExitWindowsEx(EWX_REBOOT, 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ExitWindowsEx(EWX_LOGOFF, 0);
end;

end.

war der quelltext ... funktioiert halt nicht ... sag mal .. wie komme ich den an die privilegien die ich brauche ?

danke schonmal für eure schnellen antworten

wenn ich wieder at home bin geb ich euch das programm mal =)

[DeddyH]

Wie Du an die Privilegien kommst, hat Daniel doch im von Dir selbst verlinkten Thread direkt als 2. Beitrag geschrieben.

[blackfin]

Zitat:

Denn ich hatte eigentlich als professioneller Softwareentwickler noch nie eine Verwendung für solch eine Routine.

Naja...ok, ein Shutdown-Button ist meistens wirklich Quark.
Aber es gibt Tools, die eine Shutdown-Funktion schon gebrauchen können, nämlich solche, die sehr lange laufen (Defragger, Indexer, Virenscanner etc.)
und da ist es ganz praktisch, wenn man eine Option hat, die den Rechner nach Abschluss der Tätigkeiten des Programms runterfährt.
Allerdings laufen solche Tools eh meist mit Adminrechten...

[himitsu]

Zitat von XBladerX:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExitWindowsEx(EWX_SHUTDOWN, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ExitWindowsEx(EWX_REBOOT, 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ExitWindowsEx(EWX_LOGOFF, 0);
end;

end.

Wie du vielleicht in nahezu allen Threads zu ExitWindowsEx gesehn haben könntest, hat ExitWindowsEx einen Rückgabewert, welchen man auswerten sollte und wie im MSDN (das ist das, wo die Beschreibung zu solchen Windowsbefehlen drinsteht) geschrieben steht, bekommt man über GetLastError im Fehlerfall auch noch einen genaueren Grund, warum es nicht ging.

ExitWindowsEx
GetLastError
SysErrorMessage
ShowMessage
oder statt SysErrorMessage und ShowMessage gleich ein RaiseLastOSError

Und schon hättest du gleich gewust, warum bei dir der Befehl nicht geht.

PS: Man muß sich nicht nur die nötigen Privilegien freischalten ... diese Privilegien dürfen auch nicht vom Administrator deaktiviert wurden sein, sonnst kann man sie ja garnicht aktivieren.