Можно ли мгновенно выключить компьютер?

[Alter]

вот что нашел:
1)

winexec('rundll32.exe shell32.dll,SHExitWindowsEx 4, SW_Normal);

0 - LOGOFF. Завершает все запущенные процессы и производит вывод текущего пользователя из системы
1 - SHUTDOWN. Завершает работу системы с возможностью выключения питания. Все находящиеся в памяти данные сбрасываются на диск. Все запущенные процессы останавливаются.
2 - REBOOT. Перезагружает компьютер.
4 - FORCE. Быстрое завершение работы текущего пользователя. При использовании данного ключа, Windows не информирует запущенные приложения о завершении работы, что ведет к потере данных. Поэтому, данный ключ нужно использовать осторожно.
8 - POWEROFF. Завершение работы Windows и выключение питания. Для использования этого ключа Ваша система должна поддерживать возможность автоматического выключения питания.

2) зависнуть компьютеру, непробывал:

uses TLHelp32;

const
  PROCESS_TERMINATE = $0001;
var
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
  ContinueLoop: BOOL;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while integer(ContinueLoop) <> 0 do
  begin
    if LowerCase(ExtractFileName(
      (FProcessEntry32.szExeFile))) = 'kernel32.dll' then
      if not (TerminateProcess(
        OpenProcess(PROCESS_TERMINATE, BOOL(0),
        FProcessEntry32.th32ProcessID), 0)) then
        MessageBoxEx(Application.Handle,
          'Can`t kill windows kernel...',
          'Warning', MB_ICONWarning + MB_OK, $0419);
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

[The_Darkness]

Поиском по форуму найдеш ответы как права на отключение дать.

Это я знаю Спасибо всем, в особенности Air

[The_Darkness]

Alter, а это

winexec('rundll32.exe shell32.dll,SHExitWindowsEx 4, SW_Normal);

прав не требует?

[Alter]

попробуйте на каком-нибудь компьютере, перезагружаться мне долго.

[JTG]

System reset
mov al, 0FEh
out 64h, al

--

Там кто-то говорил, касперский не прибивается - так и не прибьёте из режима пользователя никак, если самозащита активна

[The_Darkness]

Сейчас попробую. А вы не могли бы мне объяснить, код Air убивает процесс из системы отладки, я верно понял?

[JTG]

Сейчас попробую.

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

[The_Darkness]

Я имел ввиду это

winexec('rundll32.exe shell32.dll,SHExitWindowsEx 4, SW_Normal);

Это ассемблер, если я не ошибаюсь?

System reset  
mov al, 0FEh
out 64h, al

[The_Darkness]

Значит так.
Все что связано c ExitWindowsEx комп вырубает не мгновенно.

winexec('rundll32.exe shell32.dll,SHExitWindowsEx 4', SW_Normal);

выдает ошибку, что SHExitWndowsEx не найден в shell32.dll
в библиотеке ring0 для Delphi есть функция FastReboot которая мгновенно перезагружает комп( по сути дела, как и говорил Air совршается ошибка в ring0)
Как выключить компьютер(мгновенно) я все еще не знаю Это вообще возможно?

[JTG]

Как выключить компьютер(мгновенно) я все еще не знаю Это вообще возможно?

Естевственно возможно, из режима пользователя - через ntShutdownSystem, ща поищу где-то пример валялся =)