home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tp_util / selectd.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-03-24  |  1.1 KB  |  67 lines
  1.  
  2. UNIT SELECTD;
  3. {
  4.   STELLT DAS DIRECTORY EIN, AUF DEM SICH DAS AUFGERUFENE
  5.    PROGRAMM BEFINDET
  6.   BEI  PROGRAMMENDE WIRD DAS URSPRÜNGLICHE DIRECTORY WIEDER SELEKTIERT
  7.  
  8.   PAUL SCHUBERT, ROTTWEILER STR.8, 6000 FRANKFURT 1, 069 / 231145
  9.  
  10.   DIESE VERSION IST MIT TURBO PASCAL VERSION >= 5.0 COMPILIERBAR,
  11.   FÜR VERSION 4.0 SELECTD4 BENUTZEN.
  12. }
  13. {$F+}
  14.  
  15. INTERFACE
  16.  
  17.  
  18. VAR   QUELLDIR,ZIELDIR : STRING[64];
  19.  
  20.  
  21. PROCEDURE SELECTDNOEXIT;
  22.  
  23.  
  24. IMPLEMENTATION
  25.  
  26.  
  27. VAR   EXITSAVE  : POINTER;
  28.       I         : WORD;
  29.  
  30.  
  31. PROCEDURE SELECTDNOEXIT;
  32. BEGIN
  33.   EXITPROC := EXITSAVE;
  34. END;
  35.  
  36.  
  37. PROCEDURE MYEXIT;
  38. BEGIN
  39. {$I-}
  40.   CHDIR(QUELLDIR);
  41.   I := IORESULT;
  42. {$I+}
  43.   EXITPROC := EXITSAVE;
  44. END;
  45.  
  46.  
  47.  
  48. BEGIN
  49.   GETDIR(0,QUELLDIR);
  50.   ZIELDIR := PARAMSTR(0);
  51.   I := LENGTH(ZIELDIR);
  52.   WHILE (I > 0) AND (ZIELDIR[I] <> '\') DO BEGIN
  53.     DELETE(ZIELDIR,I,1);
  54.     DEC(I);
  55.   END;
  56.   IF (LENGTH(ZIELDIR) <> 3)
  57.     THEN IF (I > 0) AND (ZIELDIR[I] = '\') THEN DELETE(ZIELDIR,I,1);
  58.   IF LENGTH(ZIELDIR) = 0 THEN ZIELDIR := QUELLDIR;
  59. {$I-}
  60.   CHDIR(ZIELDIR);
  61.   I := IORESULT;
  62. {$I+}
  63.   EXITSAVE := EXITPROC;
  64.   EXITPROC := @MYEXIT;
  65. END.
  66.  
  67.