Category : Pascal Source Code
Archive   : TSPA3370.ZIP
Filename : TSUNTK.INT

(*
Timo Salmi UNiT K
A Turbo Pascal unit of MsDos 4.0+ specific routines
All rights reserved 26-Aug-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 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: [email protected] (preferred)
Bitnet address: [email protected]

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 TSUNTK;

(* ======================================================================= *)
interface
(* ======================================================================= *)

uses TSUNTB, { TSUNTK needs internally the number conversion routines }
{$IFDEF VER40}
TSUNT45,
{$ENDIF}
Dos;

(* Returns from which drive the system was booted, requires MsDos 4.0+,
else returns '.' *)
function BOOTDRFN : char;

(* Get disk serial number. Requires MsDos 4.0+.
Else, or on an error, returns an empty string
The default drive can be pointed to by using 0 *)
function GETSERFN (drive : char) : string;

(* Set disk serial number. Requires MsDos 4.0+.
Else, or on an error, sets the status. See TSUNTJ.TST for the codes
For safety allows the operation for drives A and B only *)
procedure SETSER (drive : char; serial : string; var status : integer);

(* A special get disk volume label. Requires MsDos 4.0+. *)
function GETVOLFN (drive : char) : string;