Чтение секторов на дисках

← →
АндрейФ. (2002-01-10 18:40) [0]

Всем добрый день! Задача заключается в чтении секторов на дисках. Ниже приведен код, использующий функцию абсолютного чтения диска (прерывание 25).
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls; ... type PDIOCRegs=^TDIOCRegs; TDIOCRegs=packed record rEBX,rEDX,rECX,rEAX,rEDI,rESI,rFlags:DWORD; end; const VWIN32_DIOC_DOS_INT25=2; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var hDevice : THandle; Regs : TDIOCRegs; Nb : DWord; Bt : Array [1..512] of Byte; PBt : PByte; begin PBt:=@Bt; hDevice:=CreateFile("\\.\vwin32",GENERIC_READ,0,nil, 0,FILE_FLAG_DELETE_ON_CLOSE,0); if (hDevice=INVALID_HANDLE_VALUE) then begin Result:=False; Exit; end; Regs.rEAX:=$0003; //логический диск С Regs.rEBX:=DWORD(PBt); Regs.rECX:=$0001; //количество считываемых секторов Regs.rEDX:=$0001; //номер считываемого сектора Result:=DeviceIOControl(hDevice,VWIN32_DIOC_DOS_INT25, @Regs,sizeof(Regs),@Regs,sizeof(Regs),nb,nil); CloseHandle(hDevice); end; ... end.
Судя по Win32 Programmer"s Reference, все должно работать. При обращении к флоппи-дисководу сектора "читаются". А вот на жесткомдиске - нет (Result=False). Аналогичная картина наблюдается и при использовании функции Read Track прерывания 21.
Пожалуйста, объясните причину и подскажите, как это обойти!

Заранее благодарен!

Чтение секторов на дисках Найти похожие ветки