Board index » delphi » Restart computer in Turbo Pascal

Restart computer in Turbo Pascal

Can anybody please send me a example how to restart yout computer in
Turbo pascal7 borland.Thanks for your help.

E mail me at:
danie...@pixie.co.za

 

Re:Restart computer in Turbo Pascal


----------------------------------------------------------------------------
---------------------------------------------------- Hamburg, Fr 25.10.96 --
----------------------------------------------------------------------------

idp1 tippte am 25.10.96 zu "Restart computer in Turbo Pascal"
folgendes auf der Tastatur:

i> Can anybody please send me a example how to restart yout computer in
i> Turbo pascal7 borland.Thanks for your help.

That's not too difficult:

  procedure WarmReset; assembler;
  asm
     MOV    AX,0040h
     MOV    ES,AX
     MOV    DI,0072h
     MOV    AX,01234h
     STOSW
     DB     0EAh, 00, 00, 0FFh, 0FFh
  end;

  procedure ColdReset; assembler;
  asm
     MOV    AX,0040h
     MOV    ES,AX
     MOV    DI,0072h
     XOR    AX,AX
     STOSW
     DB     0EAh, 00, 00, 0FFh, 0FFh
  end;

 cu, Tom.
----------------------------------------------------------------------------
-- Tom Wellige ----------------------------- EMail: PIC...@distel.RoBIN.de -
-- Groten Heesen 35 ------------------------------ TWELL...@compuserve.com -
-- 21033 Hamburg, GERMANY --------------------------------------------------
-- Dipl.Ing.(FH) NT ------ URL: ourworld.compuserve.com/homepages/twellige -
-- PGP key on request ---- HPShell Info: HPSH...@distel.robin.de Sub: HELP -
----------------------------------------------------------------------------

Other Threads