home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / readme / runfirst.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1994-03-31  |  1.9 KB  |  58 lines
  1. (* ====================================================== *)
  2. (*                       RUNFIRST.PAS                     *)
  3. (*              (C) 1994 J. Braun & toolbox               *)
  4. (*  Führt Exec auf LIST.COM und FILES.TXT auf, wenn diese *)
  5. (*  Dateien im selben Verzeichnispfad wie das Programm    *)
  6. (*  stehen, egal von wo aus das Programm aufgerufen wird. *)
  7. (* ====================================================== *)
  8. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-,Y-}
  9. {$M 16384,0,$2048}
  10. PROGRAM RunMeFirst;
  11.  
  12. USES Dos;
  13.  
  14. VAR
  15.   tempstr   : STRING;
  16.   ch        : CHAR;
  17.   DriveRoot : STRING[3];
  18.  
  19. BEGIN
  20.  
  21.   IF ParamStr(0) > '' THEN BEGIN
  22.     (* == Swap(DosVersion) >= $0301 *)
  23.     tempstr := FExpand(ParamStr(0));
  24.     DriveRoot[0] := #3;
  25.     DriveRoot[1] := tempstr[1];
  26.     DriveRoot[2] := tempstr[2];
  27.     DriveRoot[3] := '\';
  28.   END ELSE DriveRoot := '\';     (* DOS < 3.1 *)
  29.  
  30.   ChDir(DriveRoot);
  31.   SwapVectors;
  32.   Exec('LIST.COM', 'FILES.TXT');
  33.   SwapVectors;
  34.  
  35.   WriteLn(^M^J^J^J^J^J^J^J^J^J^J^J
  36.         + '  ╔════════════════════════════════════════════'
  37.         + '═══════════════════════════════╗'^M^J
  38.         + '  ║          Starten Sie die Benutzeroberfläche'
  39.         + ', indem Sie zuerst             ║');
  40.   WriteLn('  ║          auf das CD-Laufwerk wechseln  und '
  41.         + 'dann am DOS-Prompt             ║'^M^J
  42.         + '  ║          die Datei START.BAT  aus dem Haupt'
  43.         + 'verzeichnis der CD             ║'^M^J
  44.         + '  ║                               aufrufen.    '
  45.         + '                               ║');
  46.   WriteLn('  ╚════════════════════════════════════════════'
  47.         + '═══════════════════════════════╝'^M^J
  48.         + ^J^J^J^J^J);
  49.   WriteLn(' ': 50, 'Ihre Redaktion toolbox'^M^J^J^J);
  50.   Write('Weiter mit [<──┘]');
  51.   Read(ch);
  52.   SwapVectors;
  53.   Exec(GetEnv('COMSPEC'), '/C ' + 'START.BAT');
  54.   SwapVectors;
  55. END.
  56.  
  57. (* ====================================================== *)
  58.