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

[Veiron]

Подскажите как выключить/перезагрузить компьютер в Vista ?
То что действует для XP, для Vista один эффект - Выход из системы

[FaTaL]

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

Подскажите как выключить/перезагрузить компьютер в Vista ?
То что действует для XP, для Vista один эффект - Выход из системы

Всё нормально работает и на висте и на ХР.
Выключение компа:

var
  th, size: Cardinal;
  luid: Int64;
  tp: TOKEN_PRIVILEGES;
  ptp: PTokenPrivileges;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, th) then
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
begin
tp.PrivilegeCount := 1;
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
tp.Privileges[0].Luid := luid;
ptp := nil;
AdjustTokenPrivileges(th, false, tp, 0, ptp^, size);
ExitWindowsEx(EWX_POWEROFF or ewx_force,0);
end;

А вот перезагрузка:

var
  th, size: Cardinal;
  luid: Int64;
  tp: TOKEN_PRIVILEGES;
  ptp: PTokenPrivileges;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, th) then
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
begin
tp.PrivilegeCount := 1;
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
tp.Privileges[0].Luid := luid;
ptp := nil;
AdjustTokenPrivileges(th, false, tp, 0, ptp^, size);
ExitWindowsEx(EWX_REBOOT or ewx_force,0);
end;

Только эти функции не будут спрашивать другие программы, чтобы они например сохранили данные.
Агрессивный метод так сказать.

[Pitbull]

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

Всё нормально работает и на висте и на ХР.
Выключение компа:

var
  th, size: Cardinal;
  luid: Int64;
  tp: TOKEN_PRIVILEGES;
  ptp: PTokenPrivileges;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, th) then
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
begin
tp.PrivilegeCount := 1;
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
tp.Privileges[0].Luid := luid;
ptp := nil;
AdjustTokenPrivileges(th, false, tp, 0, ptp^, size);
ExitWindowsEx(EWX_POWEROFF or ewx_force,0);
end;

А вот перезагрузка:

var
  th, size: Cardinal;
  luid: Int64;
  tp: TOKEN_PRIVILEGES;
  ptp: PTokenPrivileges;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, th) then
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then
begin
tp.PrivilegeCount := 1;
tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
tp.Privileges[0].Luid := luid;
ptp := nil;
AdjustTokenPrivileges(th, false, tp, 0, ptp^, size);
ExitWindowsEx(EWX_REBOOT or ewx_force,0);
end;

Только эти функции не будут спрашивать другие программы, чтобы они например сохранили данные.
Агрессивный метод так сказать.

Какой компилятор под Висту нужен? напиши мне в лчку...буду признателе очень

[FaTaL]

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

Какой компилятор под Висту нужен? напиши мне в лчку...буду признателе очень

У меня стоит Delphi 7 SE на Windows Vista Ultimate и всё нормально компилируется. Отдельным компилятором не пользуюсь.

[Лёка]

Другие программы будут убиваться, где-то видел код на то что бы не убивались, а кнопочки закрыть у них нажимались(они сразу выполняли все команды на сохранение)

и еще Delphi 7 SE копиляторы её идут не тока на висту? ну XP то ж пойдет?

[FaTaL]

Сообщение от Лёка

Другие программы будут убиваться, где-то видел код на то что бы не убивались, а кнопочки закрыть у них нажимались(они сразу выполняли все команды на сохранение)

и еще Delphi 7 SE копиляторы её идут не тока на висту? ну XP то ж пойдет?

Компилятор и на ХР пойдёт, а вот на счет чтобы спрашивала программы, там только надо изменить флаги в строке ExitWindowsEx(EWX_POWEROFF or ewx_force,0);

Вот варианты флагов. Выберай:

Код:
ExitWindowsEx(EWX_SHUTDOWN or ewx_force,0);
останавливает работу системы в безопасный момент времени. Все буферы очищаются с сохранением данных на диске, все процессы останавливаются


Код:
ExitWindowsEx(EWX_REBOOT or ewx_force,0);
перезагрузка системы


Код:
ExitWindowsEx(EWX_FORCE or ewx_force,0);
завершает работу всех запущенных в системе приложений, не посылая им сообщения WM_QUERYENDSESSION и WM_ENDSESSIO. Это может вызвать потерю не сохраненных данных


Код:
ExitWindowsEx(EWX_POWEROFF or ewx_force,0);
завершает работу компьютера с выключением питания, если система поддерживает автоуправление питанием


Код:
ExitWindowsEx(EWX_FORCEIFHUNG or ewx_force,0);
завершает работу всех запущенных в системе приложений если система висит

Ещё вариант перезагрузки:

Код:
mov al,0F0h out 64h,al