Tapas77789
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVersion=1.5
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DirExistsWarning=False
[Languages]
Name: ru; MessagesFile: compiler:Languages\Russian.isl
[CustomMessages]
ru.NotEmptyFile=Папка установки не пустая, выберите другую!
[Code]
function FindFirstNotEmptyFile(FromDir: String; Mask: String): LongWord;
var
FSR, DSR: TFindRec; FindResult: Boolean;
begin
Result:=0;
FindResult:= FindFirst(AddBackslash(FromDir) + Mask, FSR);
while FindResult do begin
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
Result:= FSR.SizeLow + FSR.SizeHigh;
if Result>0 then Exit;
FindResult:= FindNext(FSR);
end;
if (Result=0) then begin
FindResult:= FindFirst(AddBackslash(FromDir)+ '*.*', DSR);
while FindResult do begin
if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and not ((DSR.Name = '.') or (DSR.Name = '..')) then begin
Result:=FindFirstNotEmptyFile(AddBackSlash(FromDir)+DSR.Name, Mask);
break;
end;
FindResult:= FindNext(DSR);
end;
end;
end;
function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result:=True;
if CurPageID = wpSelectDir then
begin
if FindFirstNotEmptyFile(Trim(WizardForm.DirEdit.Text)+'\', '*.*')<>0 then
begin
MsgBox(ExpandConstant('{cm:NotEmptyFile}'), mbError, MB_OK);
Result:=False;
end;
end;
end;
|
Всего записей: 70 | Зарегистр. 26-05-2008 | Отправлено: 20:26 06-01-2014 | Исправлено: Tapas77789, 20:42 06-01-2014 |
|
