Перезагрузка и выключение

← →
Pasha83 (2005-08-11 13:52) [0]

Привет!
Помогите плиз
надо написать прожку которая бы висела в задачах и перезагружала и выключала комп в определенное время
Как этого достигнуть (можно исходный код)
???????/

← →
NightLord © (2005-08-11 19:58) [1]

Привет! Пишу точно такую же прогу. Вот код 100% рабочий под WinXP
за другие не отвечаю, код не мой!!!
function ExitWin(RebootParam: Longword): Boolean;
var
TTokenHd: THandle;
TTokenPvg: TTokenPrivileges;
cbtpPrevious: DWORD;
rTTokenPvg: TTokenPrivileges;
pcbtpPreviousRequired: DWORD;
tpResult: Boolean;
const
SE_SHUTDOWN_NAME = "SeShutdownPrivilege";
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
tpResult := OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
TTokenHd);
if tpResult then
begin
tpResult := LookupPrivilegeValue(nil,
SE_SHUTDOWN_NAME,
TTokenPvg.Privileges[0].Luid);
TTokenPvg.PrivilegeCount := 1;
TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
cbtpPrevious := SizeOf(rTTokenPvg);
pcbtpPreviousRequired := 0;
if tpResult then
Windows.AdjustTokenPrivileges(TTokenHd,
False,
TTokenPvg,
cbtpPrevious,
rTTokenPvg,
pcbtpPreviousRequired);
end;
end;
Result := ExitWindowsEx(RebootParam, 0);
end;

← →
Kolan © (2005-08-11 21:05) [2]

> Пишу точно такую же прогу

> код не мой

Забавно :)

← →
Anatoly Podgoretsky © (2005-08-11 21:09) [3]

Стандартный планировщик.

← →
Kazakh (2005-08-13 17:28) [4]

Kolan © (11.08.05 21:05) [2]

> Пишу точно такую же прогу

> код не мой

>> Забавно :)

Ничего забавного, просто одинаковая задача и все.

← →
afanasic (2005-08-16 11:04) [5]

Хм... Тоже писал похожую прогу, но возникла проблема - комп подключен к серверу Novell и при использовании всяких методов, в т.ч. и предлагаемого ОС завершает все процессы, появляется окно "Завершение работы...", а потом выскакивает окно ввода логина Novell"а или в худшем случае - пустой экран, окончательное выключение не происходит... Кто знает, в чем проблема?

← →
NightLord © (2005-08-16 19:44) [6]

Проблема в чем не знаю, но знаю как уйти из нее.
Создай ярлык "shutdown.exe" и в параметрах пропиши:
Вырубить -s
Перегрузить -r
И врубай програмно! Пробовал не одно приложение не смогло остановить процесс. =)

← →
Anatoly Podgoretsky © (2005-08-16 20:21) [7]

В определенное время - значит планировщик, прорамму писать это лишнее, все и так уже есть.

← →
NightLord © (2005-08-17 18:42) [8]

To Anatoly Podgoretsky © (16.08.05 20:21) [7]
А если пользователю надо, к примеру, выключить комп при появлении окна или по его уничтожении, то твой планировщик тут не поможет. И к тому же виндовый планировщик не умеет вырубать комп, и насколько я знаю (у меня так) то в Windows XP планировщик вообще не работает!!!

>>то в Windows XP планировщик вообще не работает!!!
ЭТо круто!
>>И к тому же виндовый планировщик не умеет вырубать комп
Читай хелп run32.dll

Могу посоветовать программу GoodNight

Перезагрузка и выключение Найти похожие ветки