home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 04 / tricks / popd.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-15  |  1.2 KB  |  44 lines
  1. (* ------------------------------------------------------ *)
  2. (*                       POPD.PAS                         *)
  3. (*   Wechselt in letztes mit PUSHD gesichertes Directory  *)
  4. (*            (c) 1989 R. Geier & TOOLBOX                 *)
  5. (* ------------------------------------------------------ *)
  6. {$B-,D-,F-,I-,R-,S-,V-}
  7.  
  8. PROGRAM PopDirectory;
  9.  
  10. CONST
  11.   FName  = 'C:\PUSHD.DIR';
  12.  
  13. VAR
  14.   PFile  : FILE OF STRING;
  15.   PopDir : STRING;
  16.   FS     : LONGINT;
  17.  
  18. BEGIN
  19.   Assign(PFile, FName);
  20.   IF ParamCount = 0 THEN BEGIN
  21.     Reset(PFile);
  22.     IF (IOResult <> 0) THEN BEGIN
  23.       WriteLn('PUSHD.DIR nicht vorhanden!');
  24.       Halt(1);
  25.     END;
  26.     FS := FileSize(PFile);
  27.     IF FS = 0 THEN BEGIN
  28.       WriteLn('Keine Einträge in PUSHD.DIR vorhanden!');
  29.       Halt(2);
  30.     END;
  31.     Seek(PFile, Pred(FS));
  32.     Read(PFile, PopDir);
  33.     Seek(PFile, Pred(FS));
  34.     Truncate(PFile);
  35.     ChDir(PopDir);
  36.     IF IOResult <> 0 THEN
  37.       WriteLn('Fehler bei Wechsel nach ', PopDir, '!');
  38.     Close(PFile);
  39.   END ELSE
  40.     IF (ParamStr(1) = '*') THEN Erase(PFile);
  41. END.
  42. (* ------------------------------------------------------ *)
  43. (*                 Ende von POPD.PAS                      *)
  44.