[Sotonisto]

Всем доброго времени суток! Использую скрипт c определением свободного/необходимого места на диске:

читать дальше »

Код:

procedure GetFreeSpaceCaption(Sender: TObject);
var 
   Path: String; 
begin 
   Path := ExtractFileDrive(WizardForm.DirEdit.Text); 
   GetSpaceOnDisk(Path, True, FreeMB, TotalMB); 

if FreeMB > 1024 then 
   FreeSpaceLabel.Caption:= ExpandConstant('{cm:FreeSpace} ')+ FloatToStr(round(FreeMB/1024*100)/100) + ' Гб' else 
   FreeSpaceLabel.Caption:= ExpandConstant('{cm:FreeSpace} ')+ IntToStr(FreeMB)+ ' Мб';
 
if FreeMB < NeedSize then 
   WizardForm.NextButton.Enabled:= False else 
   WizardForm.NextButton.Enabled:= True; end; 
 
procedure GetNeedSpaceCaptionFlashing(h: Longword; msg: Longword; idevent: Longword; dwTime: Longword);
begin
    if FreeSpaceLabel.Font.Color=$FFFFFF then FreeSpaceLabel.Font.Color:=$0000FF else FreeSpaceLabel.Font.Color:=$FFFFFF;
end;

procedure GetNeedSpaceCaption; 
begin 
if NeedSize > 1024 then 
   NeedSpaceLabel.Caption:= ExpandConstant('{cm:NeedSpace} ') + FloatToStr(round(NeedSize/1024*100)/100) + ' Гб'  else 
   NeedSpaceLabel.Caption:= ExpandConstant('{cm:NeedSpace} ') + IntToStr(NeedSize) + ' Мб';   

if (FreeMB<NeedSize) then
   SetTimer(WizardForm.Handle,WFDiskTimerID,1000,WrapTimerProc(@GetNeedSpaceCaptionFlashing,4));
end; 

procedure CurPageChanged3(CurPageID: Integer); 
begin 
if CurPageID=wpSelectDir then begin 
   GetNeedSpaceCaption; 

if FreeMB < NeedSize then 
   WizardForm.NextButton.Enabled:=False 
  end; 
end;

Все работает, но не знаю что делать с этим:

Как убрать нули?