Código
var
parametros,comando : string;
begin
parametros := InputBox('Acesso','Digite os parâmetros','');
comando := 'cmd /c c:windowssystem32shutdown.exe ' + parametros;
//executa em janela normal
Winexec(comando,SW_SHOWNORMAL);
//executa minimizado
Winexec(comando,SW_SHOWMINIMIZED);
//executa maximizado
Winexec(comando,SW_SHOWMAXIMIZED);
//executa oculto, não mostra janela alguma
Winexec(comando,SW_HIDE);
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009