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 =)