home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TSPA3340.ZIP
/
TSUNT45.INT
< prev
next >
Wrap
Text File
|
1992-06-13
|
3KB
|
79 lines
{$B-,D-,F-,I+,N-,R-,S+,V+}
(*
Timo Salmi UNiT 4.0 to 5.0
A Turbo Pascal 4.0 unit to add TP 5.0 / 5.5 procedures and functions which
are missing in version 4.0
All rights reserved 8-Aug-90, 21-Jun-91, 1-Jan-92
This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
ANY other usage, such as use in a business enterprise or at a university,
please 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@chyde.uwasa.fi (preferred)
Funet address: GADO::SALMI
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, SF-65101 Vaasa, Finland
*)
unit TSUNT45;
(* ======================================================================= *)
interface
(* ======================================================================= *)
uses Dos;
{$IFDEF VER40}
type PathStr = string[79];
(* Since the function DosVersion to retrieve the Dos version is only
available in Turbo Pascal versions 5.0 and 5.5, we must write our
own for version 4.0 *)
function DosVersion : word;
(* The number of strings contained in the DOS environment *)
function EnvCount : integer;
(* The value of an environment string defined by index count *)
function EnvStr (index : integer) : string;
(* The value of an environment string defined by string id *)
function GetEnv (EnvVar : string) : string;
(* The name of the program *)
function ParamStr0 : string;
(* Expand a file name into a fully qualified file name *)
function FExpand (fname : PathStr) : PathStr;
(* Is the MsDos verify disk write on or off, cf MsDos verify *)
procedure GetVerify (var verify : boolean);
(* Set the MsDos verify disk write on or off, cf MsDos verify *)
procedure SetVerify (verify : boolean);
(* Get the state of Ctr-Break checking in DOS *)
procedure GetCBreak (var break : boolean);
(* Set state of Ctr-Break checking in DOS *)
procedure SetCBreak (break : boolean);
{$ENDIF}