home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / TSPA2540.ZIP / TSUNT45.INT < prev    next >
Encoding:
Text File  |  1991-06-21  |  2.3 KB  |  70 lines
  1. {$B-,D-,F-,I+,N-,R-,S+,V+}
  2.  
  3. (*
  4. Timo Salmi UNiT 4.0 to 5.0
  5. A Turbo Pascal 4.0 unit to add TP 5.0 / 5.5 procedures and functions which
  6. are missing in version 4.0
  7. All rights reserved 8-Aug-90, 21-Jun-91
  8.  
  9. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  10. NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
  11. ANY other usage, such as use in a business enterprise or a university,
  12. contact the author for the terms of registration.
  13.  
  14. The units are under development. Comments and contacts are solicited. If
  15. you have any questions, please do not hesitate to use electronic mail for
  16. communication.
  17. InterNet address: ts@chyde.uwasa.fi         (preferred)
  18. Funet address:    GADO::SALMI
  19. Bitnet address:   SALMI@FINFUN
  20.  
  21. The author shall not be liable to the user for any direct, indirect or
  22. consequential loss arising from the use of, or inability to use, any unit,
  23. program or file howsoever caused. No warranty is given that the units and
  24. programs will work under all circumstances.
  25.  
  26. Timo Salmi
  27. Professor of Accounting and Business Finance
  28. School of Business Studies, University of Vaasa
  29. P.O. BOX 297, SF-65101 Vaasa, Finland
  30. *)
  31.  
  32. unit TSUNT45;
  33.  
  34. (* ======================================================================= *)
  35.                           interface
  36. (* ======================================================================= *)
  37.  
  38. uses Dos;
  39.  
  40. (* =======================================================================
  41.                      Informative routines
  42.    ======================================================================= *)
  43.  
  44. {$IFDEF VER40}
  45.  
  46. type PathStr = string[79];
  47.  
  48. (* Since the function DosVersion to retrieve the Dos version is only
  49.    available in Turbo Pascal versions 5.0 and 5.5, we must write our
  50.    own for version 4.0 *)
  51. function DosVersion : word;
  52.  
  53. (* The number of strings contained in the DOS environment *)
  54. function EnvCount : integer;
  55.  
  56. (* The value of an environment string defined by index count *)
  57. function EnvStr (index : integer) : string;
  58.  
  59. (* The value of an environment string defined by string id *)
  60. function GetEnv (EnvVar : string) : string;
  61.  
  62. (* The name of the program *)
  63. function ParamStr0 : string;
  64.  
  65. (* Expand a file name into a fully qualified file name *)
  66. function FExpand (fname : PathStr) : PathStr;
  67.  
  68. {$ENDIF}
  69.  
  70.