выключить комп Опции

[kikoz]

привет,народ в программировании я начинающий любитель.понадобилась тут мне програмка,которая бы выключала комп через заданное количество минут (ну скажем до 1000) искать такую прогу в нете лень,да разобраться самому было бы приятнее. как бы такое реализовать на паскале? какой оператор комп выключает-то?

[klem4]

kikoz

Решение нужно именно на Паскале ? Делфи не подойдет ? Там есть функции ExitWindows и ExitWindowsEx, с помощью которых это реализуется.

[Malice]

Для паскаля можно сделать так:

asm
     mov     ah,0dh          { Dos fn release cache}
     int     21h
     mov     ax,5301h        {APM function 1, Real Mode Connect}
     sub     bx,bx          {APM BIOS (power device ID)}
     int     15h
     jc      @Exit
     mov     ax,530eh       {APM function e, APM Driver Version}
     sub     bx,bx           {APM BIOS}
     mov     cx,0102h        {select APM 1.2 functionality}
     int     15h
     jc      @Exit
     mov     ax,5307h     {APM function 7, Set Power State}
     mov     bx,1            {All devices}
     mov     cx,3            {Off state}
     int     15h
@Exit:
end;

С виндовсом наверное не прокатит, не знаю, сейчас пробовать не хочется

Сообщение отредактировано: Malice - 19.03.2007 10:41