Forçar desligamento do PC em Delphi

Fala pessoal, faz tempo que não trago nada de novo aqui então resolvi trazer uma informação simples..

Me enviaram a seguinte dúvida…

“Fiz um processo demorado para um cliente e ele não quer esperar para desligar o pc quando terminar.. tem como desligar o computador?”

 

use o seguinte código

//A linha do Winexec vai executar um shutdown (comando para desligar o PC) no prompt de comando

WinExec(‘cmd /c shutdown -s -t 5’,SW_NORMAL);
//Força os Programas a Desligarem
ExitWindowsEx(EWX_FORCE, 0);

 

com essas duas linhas você garante o encerramento de todos os programas e o desligamento do computador sem nenhuma pergunta!

 

abs