home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 04 / tricks / ppath.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-15  |  662 b   |  29 lines
  1. (* ------------------------------------------------------ *)
  2. (*                       PPATH.PAS                        *)
  3. (*         (c) 1990  Dietmar Meisel & TOOLBOX             *)
  4. (* ------------------------------------------------------ *)
  5. UNIT PPAth;
  6.  
  7. INTERFACE
  8.  
  9. USES Dos;
  10.  
  11. VAR
  12.   Direc  : DirStr;
  13.   DatBez : NameStr;
  14.   ExtBez : ExtStr;
  15.  
  16.   FUNCTION ProgPath : DirStr;
  17.  
  18. IMPLEMENTATION
  19.  
  20.   FUNCTION ProgPath : DirStr;
  21.   BEGIN
  22.     FSplit(Paramstr(0), Direc, DatBez, ExtBez);
  23.     ProgPath := Direc;
  24.   END;
  25.  
  26. END.
  27. (* ------------------------------------------------------ *)
  28. (*                 Ende von PPATH.PAS                     *)
  29.