Не правильно считается размер диска С. Посмотрите код (4 строки)

← →
Layner (2004-02-03 10:02) [0]

var di : longint; begin di := DiskSize(4); if di <> -1 then FDriveC := Format("%d MB", [di div 1048576]) else FDriveC := ""; end;

← →
Layner (2004-02-03 10:03) [1]

Для C: DiskSize(3)!
di := DiskSize(3);
(с 4 это я уже для D ввел)

← →
Layner (2004-02-03 10:04) [2]

Считает 1800мб, из 10241 мб всего, и 4900 свободных...

← →
panov (2004-02-03 10:08) [3]

function DiskSize(Drive: Byte): Int64

← →
MBo (2004-02-03 10:11) [4]

function DiskSize(Drive: Byte): Int64;

← →
Layner (2004-02-03 10:22) [5]

Понятно! Спасибо!
PS: А как свободное место вычислить?

← →
MBo (2004-02-03 10:28) [6]

>А как свободное место вычислить?
читая хелп, почаще See Also нажимать

← →
TUser (2004-02-03 10:35) [7]

Копать исходники windows.pas и sdk.

← →
Warlock (2004-02-03 10:49) [8]

function DiskFree(Drive: Byte): Int64;