home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 04 / tricks / pushd.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-15  |  941 b   |  33 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      PUSHD.PAS                         *)
  3. (*   Sichert momentanes Directory in die Datei PUSHD.DIR  *)
  4. (*            (c) 1989 R. Geier & TOOLBOX                 *)
  5. (* ------------------------------------------------------ *)
  6. {$B-,D-,F-,I-,R-,S-,V-}
  7. PROGRAM PushDirectory;
  8.  
  9. CONST
  10.   FName = 'C:\PUSHD.DIR';
  11.  
  12. VAR
  13.   PFile  : FILE OF STRING;
  14.   CurDir : STRING;
  15.  
  16. BEGIN
  17.   Assign(PFile, FName);
  18.   GetDir(0, CurDir);
  19.   Reset(PFile);
  20.   IF (IOResult <> 0) THEN Rewrite(PFile);
  21.   Seek(PFile, FileSize(PFile));
  22.   Write(PFile, CurDir);
  23.   Close(PFile);
  24.   IF ParamCount > 0 THEN BEGIN
  25.     ChDir(ParamStr(1));
  26.     IF IOResult <> 0 THEN
  27.       WriteLn('Fehler bei Wechsel nach ',
  28.               ParamStr(1), '!');
  29.   END;
  30. END.
  31. (* ------------------------------------------------------ *)
  32. (*                 Ende von PUSHD.PAS                     *)
  33.