home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / DOSENV.ZIP / DOSENV.DOC < prev    next >
Encoding:
Text File  |  1987-11-28  |  1.4 KB  |  50 lines
  1. Unit DosEnv;
  2.  
  3. {   -----------------------------------------------------------------------
  4.  
  5.     DOSENV.TPU
  6.     Version 1.0
  7.     Copyright 1987 Lawrence R. Steeger
  8.  
  9.     Permission is granted to distribute this unit and its associated files
  10.     for both commercial and non-commercial use, if all copyright statements
  11.     and the following liability statements are included.
  12.  
  13.     No liability for any damage caused by the use of this unit, or by
  14.     programming errors in this unit, can be assumed by the author.
  15.  
  16.     Programming errors may be reported to Lawrence R. Steeger [72260,107]
  17.     on CompuServe.
  18.  
  19.     -----------------------------------------------------------------------
  20.  
  21.     This unit contains functions to read DOS environment variables from
  22.     the current DOS environment block.  All functions will return a null
  23.     string ('') if any error occurs.
  24. }
  25.  
  26. Interface
  27.  
  28. {   EnvName returns a string containing the DOS environment variable name
  29.     for the relative number specified by integer value from 1 thru 32767.
  30. }
  31.  
  32. Function EnvName(I : Integer) : String;
  33.  
  34. {   EnvString returns a string for the DOS environment variable named
  35.     by string S.
  36. }
  37.  
  38. Function EnvString(S : String) : String;
  39.  
  40. {   EnvPath returns a string for the current DOS EXEC pathname from
  41.     the environment.  This function will return a null string if the
  42.     DOS version is less than 3.
  43. }
  44.  
  45. Function EnvPath : String;
  46.  
  47. Implementation
  48.  
  49. 
  50.