FBO_COUTINHO
-
Posts
21 -
Cadastrado em
-
Última visita
Tópicos solucionados
-
O post de FBO_COUTINHO em Instalar com inno setup, verificar se diretório existe. foi marcado como solução
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;
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais