Seite 1 von 2 12 LetzteLetzte
Ergebnis 1 bis 10 von 14
  1. #1
    Trojaner Avatar von BlackSpike666
    Registriert seit
    28.08.2007
    Beiträge
    67

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

  2. #2
    W32.FunLove
    Registriert seit
    30.06.2008
    Beiträge
    120

    Standard

    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"
    Zitat Zitat von Suicide
    Und als super Free-Hack "Veteran" wie du dich hier präsentierst, hätte dir das auch auffallen müssen.

  3. #3
    W32.Lovgate
    Registriert seit
    19.01.2008
    Beiträge
    340

    Standard

    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

  4. #4
    Trojaner Avatar von BlackSpike666
    Registriert seit
    28.08.2007
    Beiträge
    67

    Standard

    Oka Vielen dank =) ^^ :twisted:

  5. #5
    Moderator Avatar von Jut4h.tm
    Registriert seit
    25.06.2006
    Beiträge
    792

    Standard

    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

  6. #6
    Trojaner Avatar von BlackSpike666
    Registriert seit
    28.08.2007
    Beiträge
    67

    Standard

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

  7. #7
    Gesperrt
    Registriert seit
    09.12.2006
    Beiträge
    946

    Standard

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

  8. #8
    Fortgeschrittener
    Registriert seit
    18.01.2008
    Beiträge
    38

    Standard

    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
    [center:3294379cfc]Proud Member of SCF
    ~Special Cat Force~[/center:3294379cfc]

  9. #9
    'Alter Hase' Avatar von X21
    Registriert seit
    30.09.2007
    Beiträge
    219

    Standard

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

  10. #10
    I'm in ur VM. Avatar von l0dsb
    Registriert seit
    23.07.2007
    Beiträge
    1.038

    Standard

    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.
    I can haz RCE?

Seite 1 von 2 12 LetzteLetzte

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •