home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 10 / tricks / s_test.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-12  |  1.2 KB  |  39 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      S_TEST.PAS                        *)
  3. (*             Funktionstest für Driverpath               *)
  4. (* ------------------------------------------------------ *)
  5. USES Dos, search;
  6.  
  7. VAR
  8.   d : datetime;
  9.   s : STRING;
  10.  
  11. BEGIN
  12.   WriteLn;
  13.   WriteLn('UNIT SEARCH von Frank Jürgensen & TOOLBOX ');
  14.   WriteLn('------------------------------------------');
  15.   WriteLn('     Funktionstest für Driverpath');
  16.   WriteLn('durchsucht zuerst DOS-PATH, dann gesamtes ',
  17.           'aktives LW');
  18.   WriteLn;
  19.   Write('Der Pfad zu dem benötigten BGI-Treiber ist: ');
  20.   s := driverpath('');
  21.   IF s = '' THEN s := 'nicht vorhanden !';
  22.   WriteLn(s);
  23.   WriteLn;
  24.   WriteLn('Der Pfad zu einer Datei TURBO.EXE mit ');
  25.   Write('der Größe 149793 vom 10.10.88, 05:00 Uhr ');
  26.   WITH d DO BEGIN
  27.     year := 1988;  month := 10;
  28.     day  := 10;    Hour  := 5;  min := 0;
  29.   END;
  30.   PackTime(d, drivertime);
  31.   driversize := 149793;
  32.   s := driverpath('TURBO.EXE');
  33.   IF s = '' THEN s := 'nicht vorhanden';
  34.   WriteLn(' ist: ', s);
  35.   WriteLn;
  36. END.
  37. (* ------------------------------------------------------ *)
  38. (*                  Ende von S_TEST.PAS                   *)
  39.