Редактор диска своими руками

Code:

TPartitionTableEntry = packed record

   BootIndicator: Byte;          // $80, если активный (загрузочный) раздел

   StartingHead: Byte;

   StartingCylAndSect: Word;

   SystemIndicator: Byte;

   EndingHead: Byte;

   EndingCylAndSect: Word;

   StartingSector: DWORD;        // начальный сектор

   NumberOfSects: DWORD;         // количество секторов

end;

Code:

// так как диск для нас - это единый файл, то для перемещения по нему

// с помощью SetFilePointer понадобится 64хразрядная арифметика

function __Mul(a,b: DWORD; var HiDWORD: DWORD): DWORD; // Result = LoDWORD

asm

   mul edx

   mov [ecx],edx

end;

function ReadSectors(DriveNumber: Byte; StartingSector, SectorCount: DWORD;

   Buffer: Pointer; BytesPerSector: DWORD = 512): DWORD;

var

   hFile: THandle;

   br,TmpLo,TmpHi: DWORD;

begin

   Result := 0;

   hFile := CreateFile(PChar('\\.\PhysicalDrive'+IntToStr(DriveNumber)),

     GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

   if hFile = INVALID_HANDLE_VALUE then Exit;

   TmpLo := __Mul(StartingSector,BytesPerSector,TmpHi);

   if SetFilePointer(hFile,TmpLo,@TmpHi,FILE_BEGIN) = TmpLo then

   begin

     SectorCount := SectorCount*BytesPerSector;

     if ReadFile(hFile,Buffer^,SectorCount,br,nil) then Result := br;

   end;

   CloseHandle(hFile);

end;