Reiniciar Windows.

19/12/2003

2

[color=blue:d161c0bac6]Olá pessoal,

Estou com o seguinte problema:
Eu utilizo a seguinte linha para reiniciar o windows pela minha aplicação (´ExitWindowsEx(EWX_FORCE + EWX_REBOOT, 0);´)
Mas esse comando não funciona nos Win 2000 e XP.
Já tentei utilizar o comando: ´WinExec(´rundll.exe user.exe,exitwindowsexec´, 1);´, Mas também não funciona.

Abradeço aos que me ajudarem.

Abraço,
Maicon Berndt[/color:d161c0bac6]


Responder

Posts

19/12/2003

Hunterxxx

No Evento OnClik de um botão, ou quem sabe no evento onClose de um Form, coloque:

ExitWindowsEx(EWX_FORCE,0);
// Força o desligamento de todas as tarefas, independentemente se há arquivos abertos. Esta opção não deve ser utilizada, pois pode causar perda de dados.

ExitWindowsEx(EWX_LOGOF,0);
// Desconecta o usuário atual e retorna para pedir a senha do novo usuário.

ExitWindowsEx(EWX_POWEROFF,0);
// Termina todos os processos e desliga a máquina.

ExitWindowsEx(EWX_REBBOT,0);
// Termina os processos e reinicia a maquina.

ExitWindowsEx(EWX_SHUTDOWN,0);
// Termina os processos e mostra a tela que informa que é seguro desligar o computador.


tenta ae


Responder

19/12/2003

Maicon Berndt

Obrigado pela sugestão.

Mas já tentei todos. Nem com Force, nem com nada...
Não adiantou...

Agradeço novas sugestões.

Obrigado,
Maicon Berndt.


Responder

19/12/2003

Hunterxxx

q isso cara
seu OS deve estar com problema
só pode
aki é xp e todos esses funcionam


Responder

19/12/2003

Maicon Berndt

Vamos dizer o seguinte então.

Eu desenvolvo em Win 2000. --> Não reiniciou.
Tenho mais duas máquinas com o mesmo Win. --> Não reiniciou.
Passei cópias do sistema, mesmo com este bug:
- Os que tem Win 9x --> Ok, reiniciou.
- Os que tinham XP e 2000. --> Não reiniciou, tive que solicitar que reiniciassem no ´braço´. (São mais de 5 com win XP e 2000)

Resultado: Digamos que todos os windows estão mal configurados ?

Obrigado pela resposta, e fico no aguardo da próxima.

Valeu Hunterxxx.
Abraço,
Maicon Berndt.


Responder

19/12/2003

Hunterxxx

vou chegar em casa e vou fuçar e ai eu posto melhor......
aki no servico é carniça de mexer


Responder

20/12/2003

Maicon Berndt

Ok, Obrigado.

Qualquer coisa deixe seu e-mail que eu lhe passo o projeto.
Ou se for melhor, podemos nos conversar via MSN ou ICQ.

Abraço,
Maicon Berndt.


Responder

20/12/2003

Glaubergs

Amigo eu tinha esse problema e fiz o seguinte ... Há quem chame isso de gambiarra:

Crie um novo atalho para o arquivo shutdown.exe que fica dentro da pasta windows/system32 com os esses parametros:

C:\WINDOWS\system32\shutdown.exe -r -t 30

Onde o ´30´ é o tempo que a máquina te ´dará´ pra salvar todos os programas abertos. Detalhe: É a mesma janela que aparecia do nada nos micros infectados pelo Blaster, então não se assuste.

Depois é só chamar o atalho no Delphi e pronto !!!


Responder

20/12/2003

Fábio Borges

Aí vai um código que deve funcionar em TODAS as versões do windows, eu ainda não testei este código, mas deve funcionar corretamente.

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.

Alle Prozesse des Benutzers werden beendet, danach wird der Benutzer abgemeldet.

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.

Fährt Windows herunter und setzt den Computer in den StandBy-Modus,
sofern von der Hardware unterstützt.

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.

Fährt Windows herunter und startet es neu.

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.

Fährt Windows herunter.


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.

Die aktiven Prozesse werden zwangsweise und ohne Rückfrage beendet.

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.

Windows 2000/XP: Die aktiven Prozesse werden aufgefordert, sich selbst zu beenden und
müssen dies bestätigen. Reagieren sie nicht, werden sie zwangsweise beendet.


Responder

25/12/2003

Glaubergs

Amigo eu tinha esse código aqui e no XP ele se revelou instável, algumas vezes funcionando e outras não ...


Responder

05/01/2004

Maicon Berndt

æ Glaubergs blz ?

É o seguinte, eu não achei o shutdown.exe no Win 2000.
Aquele código que nosso amigo Fábio Borges nos passou dá muito problema ?

Agradeço a resposta, flw.
Abraço,
Maicon Berndt


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira