Danser
Новичок
Доброго дня. Подскажите, как быть? Установщик не блокирует установку при недостаточном месте на жестком диске.
Код:
//************************************************[Начало - Проверка места на диске]*************************************************************//
procedure GroupChange (Sender: TObject);
begin
GroupEditLabel.Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
WizardForm.DirEdit.Text:= WizardForm.DirEdit.Text + #0;
end;
//************************************************[Конец - Проверка места на диске]*************************************************************//