home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 07 / tricks / disktest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-04-06  |  776 b   |  27 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     DISKTEST.PAS                       *)
  3. (*         Demonstration der Unit DISKCH.TPU              *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM DiskTest;
  6.  
  7. USES Crt, DiskCh;
  8.  
  9. VAR
  10.   D : CHAR;
  11.   St : STRING;
  12.  
  13. BEGIN
  14.   IF ParamCount > 0 THEN BEGIN
  15.     St := ParamStr(1);
  16.     D := St[1];
  17.   END ELSE BEGIN
  18.     Write ('Welches Laufwerk? '); D := ReadKey;
  19.     WriteLn;
  20.   END;
  21.   D := UpCase(D);
  22.   Write('Diskette in Laufwerk ', D, ': wurde ');
  23.   IF NOT DiskChange(Ord(D) - 65) THEN Write('nicht ');
  24.   WriteLn('gewechselt!');
  25. END.
  26. (* ------------------------------------------------------ *)
  27. (*               Ende von DISKTEST.PAS                    *)