[saurn]

Alloc

Вам нужна функция вычисления объёма диска?

Код:

function GetSpaceOnDisk(const Path: String; const InMegabytes: Boolean; var Free, Total: Cardinal): Boolean;

Простой пример:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[...Code]
function NextButtonClick(CurPageID:integer): Boolean;
var
  Disk: String;
  FreeMB, TotalMB: Cardinal;
begin
  Result:= True;
  case CurPageID of
    wpSelectDir:
    begin
      Disk := ExtractFileDrive(WizardForm.DirEdit.Text);
      if GetSpaceOnDisk(Disk, True, FreeMB, TotalMB) then
      begin
        MsgBoxEx(0, 'Свободно ' + IntToStr(FreeMB) + ' мегабайт на диске ' + Disk, '', MB_OK or MB_ICONINFORMATION ,0 ,0);
      end
    end;
  end;
end;