home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / dos / hdsave.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-13  |  1.5 KB  |  45 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X+,M 16384,0,655360}
  2. (*===================================================================*)
  3. (*                     HDSAVE.PAS Version 1.0                        *)
  4. (*         Compiler: Turbo/Borland Pascal Real Mode Target           *)
  5. (*                Copyright (C) 1993 te-wi Verlag                    *)
  6. (*===================================================================*)
  7. (* Beschreibung:                                                     *)
  8. (*  Das Programm sichert die Partitionstabelle und die Bootsektoren  *)
  9. (*  auf einer Festplatte in eine Datei. Diese Datei wird anschlies-  *)
  10. (*  send versteckt.                                                  *)
  11. (*===================================================================*)
  12.  
  13. PROGRAM HDSave;
  14.  
  15. USES
  16.   Dos, DOSUtil;
  17.  
  18. VAR
  19.   i, j  : INTEGER;
  20.   f     : FILE;
  21.   Buffer: POINTER;
  22.  
  23. BEGIN
  24.   GetMem(Buffer, 512);
  25.   ReadPartition(3, Buffer^);
  26.   Assign(f, 'C:\SAVEFILE.BIN');
  27.   ReWrite(f, 1);
  28.   BlockWrite(f, Buffer^, 512);
  29.   i := 3;
  30.   WHILE j = 0 DO
  31.   BEGIN
  32.     j := ReadBootSector(i, Buffer^);
  33.     Inc(i);
  34.     IF j = 0 THEN BlockWrite(f, Buffer^, 512);
  35.   END;
  36.   Close(f);
  37.   FreeMem(Buffer, 512);
  38.   WriteLn(^M^J'HDSave Version 1.0');
  39.   WriteLn('Die Partionstabelle und die Bootsektoren von C: bis ',
  40.           Chr(BYTE(i) + 62), ': ');
  41.   WriteLn('wurden in der Datei C:\SAVEFILE.BIN gespeichert.');
  42.   SetFAttr(f, Hidden);
  43. END.
  44.  
  45. (*===================================================================*)