Pascal/Delphi Instalar com inno setup, verificar se diretório existe.

[celso lisboa]

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

[FBO_COUTINHO]

Tente isto:

function CheckFolders(): 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;

procedure InitializeWizard;
begin
  CheckFolders();
end;

 

[Simon Viegas]

5 horas atrás, celso lisboa disse:

renamefile('c:\bmeusistema\executavel.exe', 'c:\meusistema\executavelold.exe');

 

não seria esse "b" a mais aí, não?

[celso lisboa]

FBO_COUTINHO., muito obrigado, funcionou como precisava.

 

Siimon Viegas, saiu errado esta letra "b", não é este erro não.

Obrigado.

 

Celso