home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / cebit_91 / boot / prep.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-03-01  |  1.8 KB  |  44 lines
  1. (*--------------------------------------------------------*)
  2. (*             PREP.PAS      (Version 1.0)                *)
  3. (*             (C) 1991 J. Braun & TOOLBOX                *)
  4. (*--------------------------------------------------------*)
  5. {$A-,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-,M 16384,0,0}
  6. PROGRAM PrepareHarddisk;
  7. USES Dos, Absolute;
  8. VAR  FileName, Name : STRING[20];
  9.      f              : FILE OF CHAR;
  10.      i              : WORD;
  11.      FileExists     : BOOLEAN;
  12.      OldDir         : PathStr;
  13.      SR             : SearchRec;
  14.      OldSystem      : BYTE;
  15. BEGIN
  16.   GetDir(0, OldDir);
  17.   AbsoluteRead; OldSystem := CheckOldSystem;
  18.   IF OldSystem > 0 THEN BEGIN
  19.     FileName := 'BOOT.' + Systems[OldSystem];
  20.     ChDir(SysDir);
  21.     IF IOResult <> 0 THEN BEGIN           (* Newcomer     *)
  22.       WriteLn('Verzeichnis ', SysDir, ' wird neu angelegt');
  23.       MkDir(SysDir); ChDir(SysDir);       (* Fehler?      *)
  24.     END;
  25.     FindFirst(FileName, AnyFile, SR);     (* Gibt es die  *)
  26.     FileExists := SR.Name = FileName;     (* Datei schon? *)
  27.     Assign(f, FileName);
  28.     IF FileExists THEN SetFAttr(f, Archive);  (* Update!  *)
  29.     ReWrite(f);
  30.     IF IOResult <> 0 THEN          (* dann eben nicht ... *)
  31.       WriteLn('Datei kann nicht geschrieben werden!')
  32.     ELSE BEGIN
  33.       FOR i := 0 TO 511 DO Write(f, BootSector[i]);
  34.       Close(f); SetFAttr(f, Archive + Hidden);
  35.       Write('Die Datei ', FileName, ' wurde geschrieben');
  36.     END;
  37.   END ELSE
  38.     WriteLn('Leider habe ich das System nicht erkannt,' +
  39.             #13#10'deshalb wurde keine Datei geschrieben.');
  40.   ChDir(OldDir);       (* Zurück ins Ursprungsverzeichnis *)
  41. END.
  42. (*--------------------------------------------------------*)
  43. (*                  Ende von PREP.PAS                     *)
  44.