[S] shut down code delphi??

[BlackSpike666]

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

[berlinermauer]

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"

[n1c3h4x0r!]

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

[BlackSpike666]

Oka Vielen dank =) ^^ :twisted:

[Jut4h.tm]

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

[BlackSpike666]

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 ^^

[o_O]

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

[Sector]

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

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

[X21]

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

[l0dsb]

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.