V DOSe vykoná mäkký reset PC

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Programy zos Pascalu

Program: Reset.pas
Subor exe: Reset.exe

Toto už vo Windows nefunguje, ale pod DOSom vykoná "mäkký reset PC". Krása je ale v jeho dĺžke. Program na 9 riadkov z toho sú 4 zbytočné.
{ RESET.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Resetne PC - Nefunguje pod Win 9x/NT/2K                           }
{                                                                   }
{ Datum:07.12.1995                             http://www.trsek.com }
 
program Reset_pocitaca;
var
  no_boot:procedure;
  smer:pointer;
 
begin
  writeln('Za okamih prebehne reset pocitaca.');
  smer:=Ptr($FFFF,$0);
  @no_boot:=smer;
  no_boot;
end.