информация о дисках

[AIst]

Пишу програмку одну, застрял на информации о томе(диске):

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, Menus, StdCtrls, FileCtrl;

............... 

procedure TForm1.DriveComboBox1Change(Sender: TObject);
var
     PathName : PChar; //  путь к диску(тому)
	 SecInCluster : DWORD;      //  количество секторов в одном кластере
	 ByteInSector : DWORD;      //  количество байт в одном секторе
	 FreeClOnDisk : DWORD;      //  количество свободных кластеров на диске(томе)
	 AllClOnDisk : DWORD;      //  всего кластеров
begin

GetDiskFreeSpace(PathName, SecInCluster, ByteInSector, FreeClOnDisk, AllClOnDisk);
memo1.Lines.Add('Осталось: ' + inttostr(Round((ByteInSector*SecInCluster*FreeClOnDisk) / 1024)) + 'Кб');
memo1.Lines.Add(' ');
memo1.Lines.Add('Всего:' + inttostr(Round((ByteInSector*SecInCluster*AllClOnDisk) / 1024)) + 'Кб');
end;

Программа выдает:

Осталось: 3559824 Кб ( примерно 3,4 Гб)
Всего: 2286548 Кб ( примерно 2,2 Гб)

На самом деле том у меня такой:
Осталось: 15,3 Гб
Всего: 34,1 Гб
другой том у меня 100 Гб, так программа говорит, что он 10 Гб...
для cd дисков она нормальный размер определяет.
Где моя ошибка? Почему результат такой?

[Greblin]

Юзай GetDiskFreeSpaceEx

[Ozerich]

TdriveInfo=packed record
sernumber:string;
tomlabel:string;
filesystem:string;
sectorsinclaster:string;
bytesinsector:string;
maximumlength:string;
diskfreesize:string;
disksize:string;
diskusagesize:string;
totalclasters:string;
freeclasters:string;
end;

function getDriveinfo(diskname:string):TDriveinfo;
var
  lpRootPathName:  PChar;
  lpVolumeNameBuffer: PChar;
  nVolumeNameSize: DWORD;
  lpVolumeSerialNumber: DWORD;
  lpMaximumComponentLength: DWORD;
  lpFileSystemFlags: DWORD;
  lpFileSystemNameBuffer: PChar;
  nFileSystemNameSize: DWORD;
  FSectorsPerCluster: DWORD;
  FBytesPerSector   : DWORD;
  FFreeClusters     : DWORD;
  FTotalClusters    : DWORD;

begin
diskname:=diskname[1];
if not directoryexists(diskname+':\') then exit;

lpVolumeSerialNumber    := 0;
lpMaximumComponentLength:= 0;
lpFileSystemFlags       := 0;
getmem(lpVolumeNameBuffer,MAX_PATH+1);
getmem(lpfilesystemnamebuffer,MAX_PATH+1);
nvolumenamesize:=MAX_PATH+1;
nFileSystemNameSize:=MAX_PATH+1;
lprootpathname:=Pchar(diskname+':\');
if getvolumeinformation(lprootpathname,lpvolumenamebuffer,nvolumenamesize,@lpvolumeserialnumber,lpmaximumcomponentlength,lpfilesystemflags,lpfilesystemnamebuffer,nfilesystemnamesize)
then begin
getdiskfreespace(lprootpathname,Fsectorspercluster,Fbytespersector,ffreeclusters,FtotalClusters);
result.sernumber:=IntToHex(HIWord(lpVolumeSerialNumber), 4) + '-' +IntToHex(LOWord(lpVolumeSerialNumber), 4);
result.tomlabel:=lpvolumenamebuffer;
result.filesystem:=lpfilesystemnamebuffer;
result.sectorsinclaster:=inttostr(FsectorsperCluster);
result.bytesinsector:=inttostr(FBytesPerSector);
result.maximumlength:=inttostr(lpMaximumComponentlength);
result.diskfreesize:=floattostr(GetFreeDiskSize(diskname));
result.disksize:=floattostr(getTotaldisksize(diskname));
result.diskusagesize:=floattostr(gettotaldisksize(diskname)-getfreedisksize(diskname));
result.totalclasters:=inttostr(FTotalClusters);
result.freeclasters:=inttostr(fFreeClusters);
freemem(lpvolumenamebuffer);
freemem(lpfilesystemnamebuffer);
end;
end;

[eoln]

Просто всё дело в переполнении. Замени эту строку

memo1.Lines.Add('Осталось: ' + inttostr(Round((ByteInSector*SecInCluster*FreeClOnDisk) / 1024)) + 'Кб');

на эти

int64_:=FreeClOnDisk;
int64_:=int64_*SecInCluster;
int64_:=int64_*ByteInSector;
memo1.Lines.Add('Осталось: ' + inttostr(int64_ div 1024) + 'Кб')

где var int64_: int64

[AIst]

всем спасибо. теперь все работает. аж стыдно, что long int выпало из головы...