Выключение ПК

[W0LF]

Меня интересует такое: как можно добиться выключения ПК равносильному отключении от резетки,и возможно ли это и как?

[Alex Cones]

Все проще некуда:

procedure ShutdownComputer;
var
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
    TOKEN_QUERY, ph);
  LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid);
  tp.PrivilegeCount := 1;
  tp.Privileges[0].Attributes := 2;
  AdjustTokenPrivileges(ph, FALSE, tp, SizeOf(prevst), prevst, rl);
  ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF, 0);
end;

[W0LF]

НЕТ, внимательно прочтите вопрос, меня интересует выключение равносильное - выключении из резетки! что бы раз и погасло всё

[Alex Cones]

Как вариант - держи большой палец правой ноги на кнопке сетевого фильтра - Ррраз - и все. Резкое выключение компьютера способствует сгоранию запчастей. По-моему даже тема такая была на форуме.

[W0LF]

Хм... я серйозно спрашую возможно ли !програмно! это сделать или нет? меня не интересует как пальцем ноги можно его отлючить и к чему это способствует...

[Вавел из ГМТУ]

Нет, это нереально.

[JTG]

Через APM

mov ax, 0x5301  
xor bx, bx  
int 0x15  
mov ax, 0x5308  
mov bx, 1  
mov cx, bx  
int 0x15  
mov ax, 0x530D  
mov bx, 1  
mov cx, bx  
int 0x15  
mov ax, 0x530F  
mov bx, 1  
mov cx, bx  
int 0x15  
mov ax, 0x530E  
xor bx, bx  
mov cx, 0x102  
int 15h  
mov ax, 0x5307  
mov bx, 1  
mov cx, 3  
int 0x15  
jmp $

Тупо вырубить питание (для интеловских чипов)

mov     dx, 404h   
in      ax, dx     
out     0EBh, al   
mov     ah, 111100b
out     dx, ax

Через ACPI (см. вложение)

Всё с wasm.ru. Естественно винда простой программе не даст так издеваться над компьютером

[Terran]

Так же можно завершить системный процесс csrss.exe или smss.exe, точно не помню какой и комп полностью потухнет.