Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вырубление компа [D6, Win95/98]


Иоффе ©   (2002-01-15 15:54:00) 

Не могли бы подсказать как программно вырубить комп из Windows 98, 2000, Me, XP. Как его перезагрузить в тех же самых версиях операционок?


Amit   (2002-01-31 21:39:00) [1]

чтоб вырубить:
procedure ShutDown;
begin
asm
mov ax,5301h
sub bx,bx
int 15h
jc @@finish
mov ax,530Eh
sub bx,bx
mov cx,102h
int 15h
jc @@finish
mov ax,5307h
mov bx,1
mov cx,3
int 15h
@@finish:
int 20h
end;
end;
а это чтоб перезарузить
procedure Restart;
begin
mov al,0F0h
out 64h,al
end;
end;работает на всех версиях.


doomin   (2002-01-31 16:51:00) [2]

http://www.dragonsoft.spb.ru/download.phtml?filename=delphi/lib/winexit.zip

Неплохая компонента. Работает под всеми Windows


Tosov   (2002-01-15 22:39:00) [3]

В WinNT/2000/XP для перезагрузки нужны права. Пример http://delphi.xonix.ru/faq/system/shutdown01.shtml


Dimka Maslov   (2002-01-15 15:59:00) [4]

ExitWindowsEx


Наверх

Титульная страница Поиск, карта сайта Написать письмо