Código
WinExec(PChar('command.com /c "Digite o seu Comando aqui" '),SW_shownormal);
{Significa que o Delphi vai procurar um Arquivo Chamado 'command.com', Localizado na pasta 'c' e executar o Comando que você digitou Numa Janela Normal('SW_Shownormal').
Dica: Os Comandos do MS-Dos são executados Numa Tela Preta, o que deixa o seu Programa, de um certo modo Feio. Para Evitar isso, deve-se utilizar em vez de 'SW_Shownormal', 'SW_Hide', que deixa a Tela Preta do MS-Dos Invisível. Exemplo: }
WinExec(PChar('command.com /c shutdown -s'),SW_HIDE);
{Significa que o Delphi Vai procurar um Arquivo Chamado 'command.com', Localizado na pasta 'c' e executar o Comando 'shutdown -s' Numa Janela Invisível('SW_Hide'). O Comando 'Shutdown -s' desliga o computador em 30 segundos, mas pode ser substituído por qualquer outro Comando do MS-Dos.}
//Dica Incluída Por: Eládio Oliveira (13 anos de Idade).
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009