Shutdown Befehl auf Windows 7

[Luckie]

Ich sehe gerade, man muss noch nicht mal runterscrollen und Das Thema besteht nur aus zwei Beiträgen.

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

[XBladerX]

Das programm funktioniert immer noch nicht ..

[Luckie]

OK.

[blackfin]

Zitat:

Das programm funktioniert immer noch nicht ..

Die DP mit Twitter verwechselt?

[R2009]

Hi,
hier ist die Lösung funktioniert einwandfrei:
In Nameadress muss die IP des runterzufahrenden Rechners stehen.
In deinem Fall deine eigene.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var a:string;
begin
  a:='cmd /C shutdown /t 1 /s /f /m \\'+Nameaddress;
  ShellExecute(handle, nil, PChar('cmd.exe'), PChar(a), nil, SW_SHOWNOACTIVATE);
end;

Wenn du shellexecute nicht verstehst googln.
Verlass dich drauf man kann sowas brauchen. Ich kontrolliere damit 12 Server. (Notshutdown Reboot usw)
Was ist denn dann schlecht dabei wenn mein eigener Rechner ebenfalls runtergefahren werden kann.
Grüsse
Rainer

[DeddyH]

Funktioniert das auch noch, wenn Du keine Admin-Rechte hast?

[doctor-x]

Hi,

ich benutze dafür fogenden code:

Code:

unit WHSystem;

interface

uses
  Classes, SysUtils, Windows, mmSystem;

const
  //Soft-Variante
  Logoff      = EWX_LOGOFF or EWX_FORCEIFHUNG;
  StandBy     = EWX_POWEROFF or EWX_FORCEIFHUNG;
  Reboot      = EWX_REBOOT or EWX_FORCEIFHUNG;
  Shutdown    = EWX_SHUTDOWN or EWX_FORCEIFHUNG;

  //Harte-Variante
  Logoff_F    = EWX_LOGOFF or EWX_FORCE;
  StandBy_F   = EWX_POWEROFF or EWX_FORCE;
  Reboot_F    = EWX_REBOOT or EWX_FORCE;
  Shutdown_F  = EWX_SHUTDOWN or EWX_FORCE;

type
  ExitWindowsParameter = longword;

function ExitWindows (RebootParam : longword) : boolean;
//zB.: "EWX_REBOOT or EWX_FORCE" zum Neustarten
//Es können auch dierekt die Konstanten aus dieser Unit verwendet werden!
//Parameter       Wirkung

//EWX_LOGOFF      Alle Prozesse des Benutzers werden beendet, danach wird der Benutzer abgemeldet.

//EWX_POWEROFF    Fährt Windows herunter und setzt den Computer in den StandBy-Modus,
//                sofern von der Hardware unterstützt.

//EWX_REBOOT      Fährt Windows herunter und startet es neu.

//EWX_SHUTDOWN    Fährt Windows herunter.

//EWX_FORCE       Die aktiven Prozesse werden zwangsweise und ohne Rückfrage beendet.

//EWX_FORCEIFHUNG Windows 2000/XP: Die aktiven Prozesse werden aufgefordert, sich selbst zu beenden und
//                müssen dies bestätigen. Reagieren sie nicht, werden sie zwangsweise beendet.

implementation

function ExitWindows (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;

Einfach und simpel zu benutzen^^

Code:

ExitWindows(Shutdown_F);

Funktioniert bei mir in Delphi und Lazarus unter WinXP und unter Win7 tadellos
Ich hoffe ich konnte helfen

Lg

[Luckie]

Ähnlichen Code haben wir, glaube ich schon fünf mal verlinkt.

Aber wie wäre es bei dir mal mit einer Fehlerbehandlung?