Размер файла

[flug]

Здравствуйте уважаемые профи!
Если в проводнике выбрать файл и посмотреть в свойствах на размер файла, то мы увидим два варианта: 1 - размер, 2 - размер на диске, так вот как можно посчитать этот самый размер на диске? В одном месте я прочитал, что для этого нужно знать размер кластера на диске, вот например для дискеты как правило размер кластера 512, для CD\DVD увы не знаю, но я даже не знаю как посчитать для той же дискеты что на что делить перемножать?

[Aristarh Dark]

Файл на диске занимает:
(Размер файла div Размер кластера)+1 кластеров
Узнавай размер кластера и получишь требуемый объем.

[betirsolt]

procedure TForm1.Button1Click(Sender: TObject);
var
i:real;
k:real;
searchrec:tsearchrec;
begin
i:=0;
if findfirst(edit1.Text,faanyfile,searchrec)=0 then
i:=(searchrec.Size);
k:=i/1024;
edit2.Text:=floattostr(k) +' КБ';
findclose(searchrec);
end;