В чем проблема?

← →
_незнайка_ (2003-11-05 12:12) [0]

Привет..

Читаю сектора диска в буффер и т.д... все работает как полагается, НО как только я меняю размер любого окна или перетаскиваю его (explorer и т.п.) вылетает ошибка:"Not enought storage is available to process this command" Ошибка появляется в этом блоке:

pos64 := sectornum * BLOCKSIZE;
n := Windows.SetFilePointer( hDevice, rPos64.Lo, @rPos64.Hi, FILE_BEGIN );
rc := GetLastError;
if rc<>NO_ERROR then
begin
AddToLog(SysErrorMessage(rc));
Exit;
end;

В ЧЕМ БРОБЛЕМА?!

← →
_незнайка_ (2003-11-05 12:54) [1]

На всякий случай приведу всю функцию, хотя она достаточно стандартная:

function TMainForm.ReadSector( const hDevice : THandle; const sectornum : int64) : Boolean; var rc : DWORD ; n : DWORD ; pos64 : int64 ; rPos64 : int64Rec absolute pos64 ; begin Result := False; pos64 := sectornum * BLOCKSIZE; n := SetFilePointer(hDevice , rPos64.Lo, @rPos64.Hi, FILE_BEGIN ); rc := GetLastError; if rc<>NO_ERROR then begin AddToLog(SysErrorMessage(rc)); Exit; end; if n <> rPos64.Lo then rPos64.Lo := n; if not Windows.ReadFile( hDevice, HDDBuffer[0], BLOCKSIZE, n, nil ) then begin AddToLog(SysErrorMessage(GetLastError)); Exit; end; Result := true; end;

В чем проблема? Найти похожие ветки