24.08.2008, 11:26
|
|
Новичок
Регистрация: 06.06.2008
Сообщений: 19
Провел на форуме:
49002
Репутация:
3
|
|
SNAIPER ShoT, delphi или pascal?
если pascal
Код:
{$M 8192,0,0}
Program DOSCOMMAND;
uses Dos;
begin
SwapVectors;
Exec(GetEnv('COMSPEC'), '/C' + "shutdown /g /f");
SwapVectors;
if DosError <> 0 then writeln('не могу наити cmd');
end.
shutdown /g - Завершение работы и перезагрузка компьютера. После п
системы, запуск всех зарегистрированных приложений.
/s - Завершение работы компьютера.
/f - Принудительное закрытие запущенных приложений без предупреждения пользователей. |
|
|