[S] shut down code delphi??

Guten Abend

Wollte gerade in kleines Programm Coden (Bin Anfänger)

hab den procedure für ein neustart
doch wenn ich dann auf yes klicke fährt mein windows nicht runter...
Ist an dem Code etwas falsch?


procedure TForm3.Button2Click(Sender: TObject);
begin

if MessageDlg('Bist du sicher???', mtWarning, [mbYes, mbNo], 0) = mrYes then
ExitWindowsEx(EWX_SHUTDOWN, 0);
end;

MfG BlackSpike666 :twisted:

// Edit by K1ngC0bra
Bitte den sticky thread "Bitte lesen vor dem posten" durchlesen.
Hoffe du hälst dich das nächste mal an den Threadtitel.
Danke

ich nutze nie MessageDlg, kann sein das du statt mbYes ( du hast btw mr geschrieben !!! evtl hast das nur falsch abgetippt.) eine zahl brauchst

Oder ExitWindows nicht geht... du kannst auch in C:\Windows\System32\shutdown.exe -r -t "Zeitbiszumrester" -c "Commentar"

Mh der Code ansich ist falsch.
Mhhh bin net @ home, aber wie gesagt etwas ist dran falsch.

sobald ich zuhause bin mach ich ein edit mit einer besseren lösunG!

mfg

Oka Vielen dank =) ^^ :twisted:

Falls du es noch nicht hinbekommen hast hier das wird dir helfen:

http://www.delphi-treff.de/tipps/system/tipp/139/

p.s. Gut das du dich für Delphi entschieden hast

Ich bekomme den F*** einfach nicht hin....
kleine Beschreibung was ich versuche zu coden .....

Also zb. Es stehen 3 Tore (die Butten) zur Auswahl
in zwei Toren ist ein bild :wink:
und in einem der Befehl shutdown...
Doch iwie bekomme ich das mit dem Befehl shut down nicht hin -.-


GruZZ BlackSpike666 :twisted:

Ps: @ <)Juta.TM(> Ja find Delphi vom Coden her am einfachsten für das was is mit machen möchte ^^

Code:

---

WinExec('shutdown.exe  -s -f -t 1', SW_SHOW);

---

Ist zwar schon lange her, als ich mit Delphi programmierte, aber versuche mal das hier:

Code:

---

ShellExecute (Application.Handle, 'open', PChar ('C:\Windows\system32\shutdown.exe'),
PChar ('-s -t 140 -c "Hier kannste dann ieine Nachricht reinschreiben ^^"'), nil, SW_NORMAL);

---

Und unter uses machste "ShellAPI" rein


Gruß Sector

Code:

---

uses
  Windows;

{...}

type
  TShutdownWindowsType = (swtShutdown, swtShutdownPowerOff, swtRestart, swtLogoff);

function ShutdownWindows (aType: TShutdownWindowsType): Boolean;

{...}

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

var
  OSVersionInfo: TOSVersionInfo;
  hToken: THandle;
  hProcess: THandle;
  TokenPriv: TTokenPrivileges;
  ReturnLength: DWORD;

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;

---

Könnte dir helfen :]

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.

Zitat:

---

Zitat von f0Gx

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! :]

Code:

---

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

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

Jaa ich habe es =)

danke für die vielen Hilfen =)

Gruß BlackSpike666 :twisted: