home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 05 / tricks / home.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-27  |  1.1 KB  |  44 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      HOME.PAS                          *)
  3. (*         Erzeugen eines "Heimatverzeichnisses".         *)
  4. (*        Rückkehr mit 'homedir'; auch nach Reset.        *)
  5. (*             (c) 1991 W.Rinke & TOOLBOX                 *)
  6. (* ------------------------------------------------------ *)
  7. PROGRAM Home;
  8.  
  9. USES Dos;
  10.  
  11. VAR
  12.   LW  : STRING[2];
  13.   Dir : STRING;
  14.   f   : TEXT;
  15.   com : STRING;
  16.  
  17.   FUNCTION GetAPathDir : STRING;
  18.   VAR
  19.     s       : STRING;
  20.     semipos : INTEGER;
  21.   BEGIN
  22.     s := GetEnv('PATH');
  23.     semipos := Pos(';', s);
  24.     IF semipos > 0 THEN
  25.       GetAPathDir := Copy(s, 1, semipos-1)
  26.     ELSE
  27.       GetAPathDir := s;
  28.   END;
  29.  
  30. BEGIN
  31.   Assign(f, GetAPathDir + '\HOMEDIR.BAT');
  32.   Rewrite(f);
  33.   GetDir(0, Dir);
  34.   LW := Copy(Dir, 1, 2);
  35.   IF DosVersion >= $1E03 THEN               (* ab Dos 3.3 *)
  36.     Write(f, '@');
  37.   WriteLn('ECHO OFF');
  38.   WriteLn(f, LW);
  39.   WriteLn(f, 'cd ', Dir);
  40.   Close(f);
  41. END.
  42. (* ------------------------------------------------------ *)
  43. (*               Ende von HOME.PAS                        *)
  44.