duvida em desligar pc e monitor

[vms]

ola pessoal!

encontrei esse comando na net pra desligar e reiniciar o pc, mas ambos só reinicia, o que pode estar errado?

WinExec('Shutdown -s -f -t 00', SW_SHOWNORMAL); //reinicia o sistema

WinExec('Shutdown -r -f -t 00', SW_SHOWNORMAL); //desliga o sistema

encontrei esse tambem pra desligar o monitor, mas não acontece nada, tinha uma "obs:" dependendo da configuraçao do monitor esse codigo não funcionaria, alguém pode ajudar?

procedure TForm1.Button1Click(Sender: TObject);

begin

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

end;

[Jhonas]

encontrei esse tambem pra desligar o monitor, mas não acontece nada

O exemplo abaixo desliga o monitor, aguarde 5 segundos e re-liga monitor.

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Sleep(5000); { Aguarde 5 segundos }

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

OBS: funciona somente para windows 95 e 98 Para o windows XP

Para desligar, reiniciar, resetar ou dar logout no sistema, use a função ExitWindowsEx, como abaixo: ExitWindowsEx (uFlags, 0); onde uFlags é o tipo de reinicialização que vai ocorrer. Valores de uFlags: EWX_FORCE - Força todos os processos a terminar. Ao invés de aparecer a mensagem "A aplicação não está respondendo", ele força o programa que não responde a finalizar. EWX_LOGOFF - Faz "logout" do sistema, ou seja, volta à tela de login (a que pede nome e senha) EWX_POWEROFF - Desliga o computador (caso o computador não tenha o recurso de auto-desligamento, ele fecha todos os programas e informa que o sistema pode ser desligado). EWX_REBOOT - Reinicializa o computador (o equivalente a pressionar Ctrl+Alt+Del) EWX_SHUTDOWN - Fecha todos os programas e informa ao usuário que é seguro desligar o computador. A função retorna True se funcionar, ou False em outro caso Usuários NT: verifique se o usuário tem o direito a desligar o computador em sua lista de privilégios.

exemplo:

{Desligar o Windows}
procedure TForm1.Button1Click(Sender: TObject);
begin
    ExitWindowsEx(EWX_SHUTDOWN,0);
end;


{Efetuar novo Logon}
procedure TForm1.Button2Click(Sender: TObject);
begin
    ExitWindowsEx(EWX_LOGOFF,0);
end;


{Rebootar}
procedure TForm1.Button3Click(Sender: TObject);
begin
    ExitWindowsEx(EWX_REBOOT,0);
end;

Caso voce queira desligar ou ligar a proteção de tela

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE , 0, nil, 0); 

{Desliga a proteção de tela} 

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE , 1, nil, 0); 

{Liga a proteção de tela}

abraço

[Micheus]

encontrei esse tambem pra desligar o monitor, mas não acontece nada

O exemplo abaixo desliga o monitor, aguarde 5 segundos e re-liga monitor.

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Sleep(5000); { Aguarde 5 segundos }

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

OBS: funciona somente para windows 95 e 98

No meu WindowsXP SP2 funciona, desde que você utilize o código adequado

Desligar: SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

[Jhonas]

Valeu Micheus ... esta eu não tinha conhecimento. Não achei nada no help do delphi sobre o numero 2 usado para desligar o monitor.

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

SC_MONITORPOWER Windows 95 only: Sets the state of the display. This command supports devices that have power-saving features, such as a battery-powered personal computer.

[vms]

valeu pela atenção.

a dica de desligar o monitor deu certo, mas a de desligar o pc não.

eu fiz dessa forma

procedure TForm1.Button1Click(Sender: TObject);

begin

ExitWindowsEx(EWX_FORCE,0);

ExitWindowsEx(EWX_POWEROFF,0);

end;

ele fecha os programas abertos e reinicia o pc

sempre acontece isso, reinicia, eu queria desligar.

voces tem outra sugestao?

[Jhonas]

voce tentou este ?

{Desligar o Windows}
procedure TForm1.Button1Click(Sender: TObject);
begin
    ExitWindowsEx(EWX_SHUTDOWN,0);
end;

abraço

[slinkkkk]

Aew vms .. respondendo seu primeiro post la de cima.

WinExec('Shutdown -s -f -t 00', SW_SHOWNORMAL); //reinicia o sistema

WinExec('Shutdown -r -f -t 00', SW_SHOWNORMAL); //desliga o sistema

O correto seria

WinExec('Shutdown -r -f -t 00', SW_HIDE); //reinicia o sistema

WinExec('Shutdown -s -f -t 00', SW_HIDE); //desliga o sistema

Coloquei o Hide para não aparecer o prompt ... mais pode colocar o SW_SHOWNORMAL se preferir... Bom usei este aki em casa e funciono perfeitamente^^

Espero ter ajudado .. abraçaoooo