Перезагрузка

[LAFam]

На форумах много информации, но хочу еще раз обсудить как проще всего программно перезагрузить компьютер в определенное время?
Имееться в виду не через коммандную строчку (shutdown -s) а с помощью средств Delphi. Xnj, Windа закрывалась когда будет надо моей проге.

[AlDelta]

Можно так:

program reboot;
uses
Windows, messages;
procedure RebootSystem;
var
handle_: THandle;
n: DWORD;
luid: TLargeInteger;
priv: TOKEN_PRIVILEGES;
ver: TOSVERSIONINFO;
begin
ver.dwOSVersionInfoSize := Sizeof(ver);
GetVersionEx(ver);
if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then
begin
   if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, handle_) then
     if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
     begin
       priv.PrivilegeCount := 1;
       priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
       priv.Privileges[0].Luid := luid;
       AdjustTokenPrivileges(handle_, false, priv, 0, nil, n);
     end
     else
       writeln('Error')
   else
     writeln('Error ');
end
else
   writeln('Error ');
if not ExitWindowsEx(EWX_POWEROFF,1) then
   writeln('Error');
end;
begin
RebootSystem;
end.

"Hy и запpосы y Вас..." - сказала база данных и повисла.

[LAFam]

А работать это будет под вин ХР и 2000?

[Slovinsky]

>> AlDelta
Где-то кто-то в ФАКе привел код, в котором по незнанию или невнимательности забыл освободить ресурсы, и все как один тупо копируют этот код и ту же ошибку допускают... Закрывать дескриптор маркера нужно по-хороему...

[AlDelta]

Будет. У меня ХР Sp2 перегружается.

Вот еще вариант:

mov  al,0F0h  
out 64h,al

Hе откладывайте покупку М$ Office 97 на завтpа...Лучше отложите ее HАВСЕГДА!

[Slovinsky]

>> Вот еще вариант:
Тут вообще слов нет. И давно на NT-системах в 3-кольце можно вызывать привилегированые инструкции, коими in/out являются?.. Почитайте книжки про современные 32-разрядные ОС и защищенный режим работы процессора.

[LAFam]

А как сделать чтоб выводилось окно с временем до перезагрузки?
как в shutdown или чтото на подобие этого.

[LAFam]

Сообщение от AlDelta

Можно так:

program reboot;
uses
Windows, messages;
procedure RebootSystem;
var
handle_: THandle;
n: DWORD;
luid: TLargeInteger;
priv: TOKEN_PRIVILEGES;
ver: TOSVERSIONINFO;
begin
ver.dwOSVersionInfoSize := Sizeof(ver);
GetVersionEx(ver);
if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then
begin
   if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, handle_) then
     if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
     begin
       priv.PrivilegeCount := 1;
       priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
       priv.Privileges[0].Luid := luid;
       AdjustTokenPrivileges(handle_, false, priv, 0, nil, n);
     end
     else
       writeln('Error')
   else
     writeln('Error ');
end
else
   writeln('Error ');
if not ExitWindowsEx(EWX_POWEROFF,1) then
   writeln('Error');
end;
begin
RebootSystem;
end.

"Hy и запpосы y Вас..." - сказала база данных и повисла.

Это работает как офф для компа а как перегрузить?

[mihali4]

Сообщение от LAFam

Это работает как офф для компа а как перегрузить?

Посмотреть в хэлпе про функцию ExitWindowsEx и выяснить, что для перезагрузки нужно использовать параметр EWX_REBOOT.
Как жаль, что использовать встроенный хэлп так трудно догадаться...

[Shuraken]

Данный код делится на две части: первая - установка привелегий, вторая (ExitWindowsEx) - выключение с флагом EWX_POWEROFF. Другие флаги:
EWX_LOGOFF: смена пользователя
EWX_REBOOT: перезагрузка.
EWX_SHUTDOWN, EWX_POWEROFF: выключение компьютера.