Функция SetFilePointer. Как расчитать адрес? как правильно передать смещение в функцию SetFilePointer?

[Hottabych]

Короче, такая проблема:
Пишу программу по восстановлению разделов и данных с NTFS. Проблему изучил, алгоритм набросал, теперь само оно ) ...
Нужно прочитать, допустим, 103394340 сектор, но как правильно передать смещение в функцию SetFilePointer?

function Mul(a,b: DWORD; var HiDWORD: DWORD): DWORD;
asm
   mul edx
   mov [ecx],edx
end;

function ReadSector(hD: THandle; Sector: DWORD; var Buffer: TSector): boolean;
var
BytesRead,PosLo, PosHi: DWORD;
begin
Result := false;
PosLo := 0;
PosHi := PosLo;
PosLo := mul(Sector,BytesPerSector,PosHi);
SetFilePointer(hD,PosLo,@PosHi,FILE_BEGIN);
if ReadFile(hD, Buffer[0], BytesPerSector, BytesRead, nil) then
  Result := true;
end;

Этот пример я взял из DRKB, но он не работает (вернее работает только в пределах 32-битного смещения), читает не тот сектор.
Хотя бы знать, как работает функция mul...

[Hottabych]

Чо, неужели никто не работал с дисками?

[dance0ff]

Гдето видел, что смещение задают функцией int64Rec().Lo и int64Rec().Hi

[s-andriano]

А зачем такой извращенный код?
И Ваша Mul будет работать правильно только при конкретном компиляторе и с конкретными настройками оптимизатора. Дисковые операции - не тот случай, где нужно экономить инструкции процессора.

В общем, в точности по законам Мерфи: если что-то может не работать, оно не работает (а программа написана так, что не работать как раз может).
Пишите без извращений и все заработает.

Писал программу проверяющую поверхность диска и измеряющую скорость обмена с ним на WinAPI. Писал давно, так что подробностей не помню. Могу лишь засвидетельствовать, что функции WinAPI для доступа к диску работают так, как положено.
Прочитайте документацию по используемым командам и применяйте их, как там написано.
Этого вполне достаточно.