Delphi
Prikazujem rezultate 1 do 3 od 3

Tema: Delphi

  1. #1
    Zainteresovan član anon1mus (avatar)
    Učlanjen
    10.04.2004.
    Lokacija
    Pancevo
    Poruke
    218
    Reputaciona moć
    52

    Podrazumevano Delphi

    kako da namestim da kada npr.kliknem na button komp se ugasi ili resetuje?



  2. #2
    Primećen član
    Učlanjen
    15.02.2004.
    Lokacija
    Nis-New York
    Poruke
    572
    Reputaciona moć
    56

    Podrazumevano

    evo ti neki kod. ako si imalo pametan upotrebices ga

    1.}

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

    // Example to shutdown Windows:

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    MyExitWindows(EWX_POWEROFF or EWX_FORCE);
    end;

    // Example to reboot Windows:

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    MyExitWindows(EWX_REBOOT or EWX_FORCE);
    end;


    // Parameters for MyExitWindows()


    {************************************************* ***********************}

    {2. Console Shutdown Demo}

    program Shutdown;
    {$APPTYPE CONSOLE}

    uses
    SysUtils,
    Windows;

    // Shutdown Program
    // (c) 2000 NeuralAbyss Software
    // www.neuralabyss.com

    var
    logoff: Boolean = False;
    reboot: Boolean = False;
    warn: Boolean = False;
    downQuick: Boolean = False;
    cancelShutdown: Boolean = False;
    powerOff: Boolean = False;
    timeDelay: Integer = 0;

    function HasParam(Opt: Char): Boolean;
    var
    x: Integer;
    begin
    Result := False;
    for x := 1 to ParamCount do
    if (ParamStr(x) = '-' + opt) or (ParamStr(x) = '/' + opt) then Result := True;
    end;

    function GetErrorstring: string;
    var
    lz: Cardinal;
    err: array[0..512] of Char;
    begin
    lz := GetLastError;
    FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, lz, 0, @err, 512, nil);
    Result := string(err);
    end;

    procedure DoShutdown;
    var
    rl, flgs: Cardinal;
    hToken: Cardinal;
    tkp: TOKEN_PRIVILEGES;
    begin
    flgs := 0;
    if downQuick then flgs := flgs or EWX_FORCE;
    if not reboot then flgs := flgs or EWX_SHUTDOWN;
    if reboot then flgs := flgs or EWX_REBOOT;
    if poweroff and (not reboot) then flgs := flgs or EWX_POWEROFF;
    if logoff then flgs := (flgs and (not (EWX_REBOOT or EWX_SHUTDOWN or EWX_POWEROFF))) or
    EWX_LOGOFF;
    if Win32Platform = VER_PLATFORM_WIN32_NT then
    begin
    if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
    hToken) then
    Writeln('Cannot open process token. [' + GetErrorstring + ']')
    else
    begin
    if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then
    begin
    tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    tkp.PrivilegeCount := 1;
    AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);
    if GetLastError <> ERROR_SUCCESS then
    Writeln('Error adjusting process privileges.');
    end
    else
    Writeln('Cannot find privilege value. [' + GetErrorstring + ']');
    end;
    { if CancelShutdown then
    if AbortSystemShutdown(nil) = False then
    Writeln(\'Cannot abort. [\' + GetErrorstring + \']\')
    else
    Writeln(\'Cancelled.\')
    else
    begin
    if InitiateSystemShutdown(nil, nil, timeDelay, downQuick, Reboot) = False then
    Writeln(\'Cannot go down. [\' + GetErrorstring + \']\')
    else
    Writeln(\'Shutting down!\');
    end;
    }
    end;
    // else begin
    ExitWindowsEx(flgs, 0);
    // end;
    end;

    begin
    Writeln('Shutdown v0.3 for Win32 (similar to the Linux version)');
    Writeln('(c) 2000 NeuralAbyss Software. All Rights Reserved.');
    if HasParam('?') or (ParamCount = 0) then
    begin
    Writeln('Usage: shutdown [-akrhfnc] [-t secs]');
    Writeln(' -k: don''t really shutdown, only warn.');
    Writeln(' -r: reboot after shutdown.');
    Writeln(' -h: halt after shutdown.');
    Writeln(' -p: power off after shutdown');
    Writeln(' -l: log off only');
    Writeln(' -n: kill apps that don''t want to die.');
    Writeln(' -c: cancel a running shutdown.');
    end
    else
    begin
    if HasParam('k') then warn := True;
    if HasParam('r') then reboot := True;
    if HasParam('h') and reboot then
    begin
    Writeln('Error: Cannot specify -r and -h parameters together!');
    Exit;
    end;
    if HasParam('h') then reboot := False;
    if HasParam('n') then downQuick := True;
    if HasParam('c') then cancelShutdown := True;
    if HasParam('p') then powerOff := True;
    if HasParam('l') then logoff := True;
    DoShutdown;
    end;
    end.





    // Parameters for MyExitWindows()


    EWX_LOGOFF

    Shuts down all processes running in the security context of the process that called the
    ExitWindowsEx function. Then it logs the user off.


    EWX_POWEROFF

    Shuts down the system and turns off the power.
    The system must support the power-off feature.
    Windows NT/2000/XP:
    The calling process must have the SE_SHUTDOWN_NAME privilege.

    EWX_REBOOT

    Shuts down the system and then restarts the system.
    Windows NT/2000/XP: The calling process must have the SE_SHUTDOWN_NAME privilege.

    EWX_SHUTDOWN

    Shuts down the system to a point at which it is safe to turn off the power.
    All file buffers have been flushed to disk, and all running processes have stopped.
    If the system supports the power-off feature, the power is also turned off.
    Windows NT/2000/XP: The calling process must have the SE_SHUTDOWN_NAME privilege.


    EWX_FORCE

    Forces processes to terminate. When this flag is set,
    the system does not send the WM_QUERYENDSESSION and WM_ENDSESSION messages.
    This can cause the applications to lose data.
    Therefore, you should only use this flag in an emergency.

    EWX_FORCEIFHUNG

    Windows 2000/XP: Forces processes to terminate if they do not respond to the
    WM_QUERYENDSESSION or WM_ENDSESSION message. This flag is ignored if EWX_FORCE is used.

  3. #3
    Zainteresovan član anon1mus (avatar)
    Učlanjen
    10.04.2004.
    Lokacija
    Pancevo
    Poruke
    218
    Reputaciona moć
    52

    Podrazumevano

    hvala

Slične teme

  1. c++ ili delphi
    Autor rdpetar u forumu Programiranje
    Odgovora: 9
    Poslednja poruka: 02.08.2013., 20:53
  2. delphi
    Autor madizi u forumu Programiranje
    Odgovora: 3
    Poslednja poruka: 26.04.2007., 23:15
  3. Delphi
    Autor wow_ u forumu Programiranje
    Odgovora: 36
    Poslednja poruka: 09.01.2007., 13:15
  4. DELPHI 7
    Autor dakinaki u forumu Programiranje
    Odgovora: 3
    Poslednja poruka: 02.03.2006., 08:08
  5. Delphi 7
    Autor Snowblind u forumu Programiranje
    Odgovora: 2
    Poslednja poruka: 31.01.2006., 00:05

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •