Есть кусок кода который удаляет и создает папку Updates.
Помогите, как реализовать - если папка пустая, то чекбокс неактивен и надпись "Очистить папку Updates(файлы отсутствуют)"
Если в ней есть файлы чекбокс активен и надпись "Очистить папку Updates, освободив место на диске ....(kb, mb, gb)"
function BackupCheck_5(): Boolean.
begin
If DeleteUpdatesCheckBox.Checked then
begin
DelTree(ExpandConstant('{app}\Updates'), True, True, True);
CreateDir(ExpandConstant('{app}\Updates'));
end;
end;