[rinaldo]

if you want to use another directory to remove here


DiskSpace.iss

procedure ObjectFunc(Sender: TObject);
var Drive: String;
begin
Drive:= ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Drive, True, FreeMB, TotalMB);
TotalSpaceLabel.Caption:= ExpandConstant('{cm:TotalSpace} ') +MbOrTb(TotalMB);
FreeSpaceLabel.Caption:= ExpandConstant('{cm:FreeSpace} ') +MbOrTb(FreeMB)+' ('+IntToStr(round(FreeMB*100/TotalMB))+'%)';
InstallSpacelabel.Caption:=ExpandConstant('{cm:Required} ')+MbOrTb({#NeedInstallSize});
NeedSpaceLabel.Caption:= ExpandConstant('{cm:NeedSpace} ') +MbOrTb({#NeedSize});
WizardForm.NextButton.Enabled:= (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize});
BtnSetEnabled(hNextBtn, true);
if (FreeMB>{#NeedInstallSize})and(FreeMB>{#NeedSize}) then begin
FreeSpaceLabel.Font.Color:={#FontColor};
end else begin
BtnSetEnabled(hDirBrowseBtn, False);
BtnSetEnabled(hGroupBrowseBtn, False);
WizardForm.DirEdit.Enabled:=False;
WizardForm.GroupEdit.Enabled:=False;
FreeSpaceLabel.Font.Color:=$0000FF;
BtnSetFontColor(hNextBtn, $0000FF, $0000FF, $0000FF, $0000FF);
end;end;