home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 9
/
CD_ASCQ_09_1193.iso
/
news
/
558
/
tspa60
/
tsuntbot.int
< prev
next >
Wrap
Text File
|
1993-07-26
|
2KB
|
58 lines
{$B-,D-,F-,I+,N-,R-,S+,V+}
(*
Timo Salmi UNiT BOoT
A Turbo Pascal unit for rebooting
All rights reserved 26-Jul-93
This unit may be used and distributed freely for PRIVATE,
NON-COMMERCIAL, NON-INSTITUTIONAL purposes, provided it is not
changed in any way, and that a proper attribution is made. For ANY
other usage, such as use in a business enterprise or a university,
contact the author for the terms of registration.
The units are under development. Comments and contacts are solicited. If
you have any questions, please do not hesitate to use electronic mail for
communication.
InterNet address: ts@uwasa.fi (preferred)
Bitnet address: SALMI@FINFUN
The author shall not be liable to the user for any direct, indirect or
consequential loss arising from the use of, or inability to use, any unit,
program or file howsoever caused. No warranty is given that the units and
programs will work under all circumstances.
Timo Salmi
Professor of Accounting and Business Finance
Faculty of Accounting & Industrial Management; University of Vaasa
P.O. BOX 297, FI-65101 Vaasa, Finland
*)
unit TSUNTBOT;
(* ======================================================================= *)
interface
(* ======================================================================= *)
uses Dos,
TSUNTH; (* For internal processor type testing *)
(* =======================================================================
Reboot
======================================================================= *)
(* Reboot the computer without memory tests. Resembles alt-ctrl-del.
Inline coded. Use judiciously *)
procedure WARMBOOT;
(* Reboot the computer with memory tests. Inline coded. Use judiciously *)
procedure COLDBOOT;
(* Reboot the computer with file closing and cache flushing. Should
thus be more secure than WARMBOOT and COLDBOOT, but no guarantees
here either. REBOOT has many times more code than the other two
boots. For a cold reboot set argument warm to false *)
procedure REBOOT (warm : boolean);