if Next and FileOrDirExists(DataDir) then DirOk := False;
if Next and FileOrDirExists(DataDir) then DirOk := False;
...
@@ -117,7 +119,7 @@ begin
...
@@ -117,7 +119,7 @@ begin
if FileOrDirExists(DataDir) then begin
if FileOrDirExists(DataDir) then begin
DirOk := MsgBox('Directory Exists' #13#13 'The directory ' + DataDir + ' already exists. Would you like to create instance files in that directory anyway?', mbConfirmation, MB_YESNO) = idYes;
DirOk := MsgBox('Directory Exists' #13#13 'The directory ' + DataDir + ' already exists. Would you like to create instance files in that directory anyway?', mbConfirmation, MB_YESNO) = idYes;
end;
end;
if not DirOk then Next := InputDir(DataDirValues[0], DataDir);
if not DirOk then Next := InputDir(False, DataDirValues[0], DataDir);
end;
end;
Result:=Next;
Result:=Next;
...
@@ -128,7 +130,7 @@ function CollectPassword(): Boolean;
...
@@ -128,7 +130,7 @@ function CollectPassword(): Boolean;
ScriptDlgPageSetSubCaption2('The login name for your Zope administrator account is "admin". When you first connect to the Zope management interface, you will need to login using the "admin" username and the password you specify below.');
ScriptDlgPageSetSubCaption2('The login name for your Zope administrator account is "admin". When you first connect to the Zope management interface, you will need to login using the "admin" username and the password you specify below.');
Next := InputQueryArrayEx(PasswordPrompts, PasswordChars, PasswordValues);
Next := InputQueryArrayEx(PasswordPrompts, PasswordChars, PasswordValues);