[S] shut down code delphi??

[X21]

Die ExitWindowsEx-Methode ist auf allen Fällen vorzuziehen. Zum Einen ist sie sauberer (schließlich programmieren wir, und scripten kein Batch-File ) und zum anderen schneller, da der unnötige Dateizugriff auf die shutdown.exe (der gerne mal von Securitylösungen überwacht wird) wegfällt, da diese ja auch nur ein Wrapper für die API ist.

Kaspersky z.B. wenns richtig eingestellt is überwacht jegliche veränderungen zugriffe und extrem die Systemdateien! :]

[BlackSpike666]

 unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
 TShutdownWindowsType = (swtShutdown, swtShutdownPowerOff, swtRestart, swtLogoff);
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
  function
  ShutdownWindows (aType: TShutdownWindowsType): Boolean;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

    function ShutdownWindows (aType: TShutdownWindowsType): Boolean;
var
  Form2: TForm2;
  OSVersionInfo: TOSVersionInfo;
  hToken: THandle;
  hProcess: THandle;
  TokenPriv: TTokenPrivileges;
  ReturnLength: DWORD;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
function ShutdownWindows (aType: TShutdownWindowsType): Boolean;

const
  cSE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
  cFlagValue: Array [TShutdownWindowsType] Of UINT = (
      EWX_SHUTDOWN, EWX_SHUTDOWN or EWX_POWEROFF, EWX_REBOOT, EWX_LOGOFF
    );
 begin
  Result := False;

  // Die Windowsversion holen
  OSVersionInfo.dwOSVersionInfoSize := SizeOf (OSVersionInfo);
  if not GetVersionEx (OSVersionInfo) then
    Exit;

  // Prüfen ob Windows NT
  if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
begin
       hProcess := GetCurrentProcess;
      if not OpenProcessToken (hProcess, TOKEN_ADJUST_PRIVILEGES, hToken) then
        Exit;

      if not LookupPrivilegeValue (nil, cSE_SHUTDOWN_NAME, TokenPriv.Privileges[0].Luid) then
        Exit;

      TokenPriv.PrivilegeCount := 1;
      TokenPriv.Privileges [0].Attributes := SE_PRIVILEGE_ENABLED;

      if not AdjustTokenPrivileges (
          hToken, False, TokenPriv, 0,
          PTokenPrivileges (nil)^, ReturnLength
        )
      then
        Exit;

      CloseHandle (hToken);
end;
      ShutdownWindows := ExitWindowsEx (cFlagValue [aType], $FFFFFFFF);
end;

end.

Wiso Kann ich diesen Code nicht Compilieren??

GruZZ BlackSpike666 :twisted:

Ps: Danke für die Hilfe =)

[lopi]

Wenn du den Fehler etwas genauer beschreibst kann vlt. besser geholfen werden

Hast du denn alles selber neu in dein Programm geschriebn oder hast du einfach nur kopiert und eingefügt, da könnte vlt der Fehler liegen

[BlackSpike666]

Jaa ich habe es =)

danke für die vielen Hilfen =)

Gruß BlackSpike666 :twisted: