Boa tarde senhores(as),
Estou alterando meu script do Inno Setup e entre as tags [Languages] e [Tasks], estou inserindo um
function InitializeSetup(): Boolean;
begin
if not (DirExists('C:\MEUSISTEMA')) then
begin
MsgBox('Pasta MEUSISTEMA não existe, será criada.',mbInformation, MB_OK);
Result := false;
end
else
if (DirExists('C:\MEUSISTEMA\BANCO')) then
begin
MsgBox('Pasta MEUSISTEMA\BANCO já existe, será renomeado para MEUSISTEMA\BANCOOLD',mbInformation, MB_OK);
RenameFile('C:\MEUSISTEMA\BANCO', 'C:\MEUSISTEMA\BANCOOLD');
RenameFile('C:\BMEUSISTEMA\EXECUTAVEL.EXE', 'C:\MEUSISTEMA\EXECUTAVELOLD.EXE');
Result := True;
end;
end;
, não está funcionando como eu preciso, o primeiro if verifica se o diretório existe, caso existe vai para outra opção do if se não existir prossegue com o instalador, mas quando verifica que o diretório não existe da a mensagem e sai fora do instalador.
Código que estou usando é este, alguém pode me mostrar onde esta o erro por favor.
Obrigado
Celso Lisboa