home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 10 / tricks / pdirdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-12  |  523 b   |  17 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   PDIRDEMO.PAS                         *)
  3. (*    Dient als Demo-Programm für die UNIT PDir.          *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM GetProgDir_Demo;
  6.  
  7. USES Dos, PDir;
  8.  
  9. VAR
  10.   ExeProgDir : DirStr;
  11.  
  12. BEGIN
  13.   GetProgDir(ExeProgDir);
  14.   WriteLn('>', ExeProgDir, '<');
  15. END.
  16. (* ------------------------------------------------------ *)
  17. (*                Ende von PDIRDEMO.PAS                   *)