VPF::Как перезагрузить компьютер? - Форум программистов

Vladimir_K

Дата 17.2.2008, 13:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: 1
Всего: 1

Подскажите, как программно перезагрузить компьютер, особенно если одна или несколько задач отказываются завеpшить pаботу?
Использую Win'XP со всеми правами.

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

dumb

Дата 17.2.2008, 13:41 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

EWX_FORCEIFHUNG, EWX_FORCE...

Virtuals

Дата 18.2.2008, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 4
Всего: 11

нажать поиск и ввести ExitWindow

COOLHack

Дата 18.2.2008, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: -1
Всего: 0

Код


var
q: _Token_Privileges;
w,e: cardinal;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, w) then begin
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', q.Privileges[0].Luid);
q.PrivilegeCount:=1;
q.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(w, false, q, 0, nil, e);
end;
ExitWindowsEx(EWX_SHUTDOWN,0);

Я так делаю, но эт на выключение!

Это сообщение отредактировал(а) COOLHack - 18.2.2008, 23:02

Vladimir_K

Дата 19.2.2008, 22:50 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 149
Регистрация: 2.12.2006

Репутация: 1
Всего: 1

Спасибо за подсказки, поискал, поспрашивал еще, и вот результат:

Код


function MyExitWindows(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; 


//Выключение
procedure TForm1.Button1Click(Sender: TObject);
begin
 MyExitWindows(EWX_POWEROFF or EWX_FORCE);
end;


//Перезагрузка
procedure TForm1.Button2Click(Sender: TObject);
begin
 MyExitWindows(EWX_REBOOT or EWX_FORCE);
end;

Всем спасибо!

--------------------

Судя по всему, у меня огромное количество мозгов - мне требуется уйма времени, чтобы ими пораскинуть

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »