OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName); acho que esse codigo vai te servir
[]'s --- Em delphi-br@yahoogrupos.com.br, Departamento Técnico NTI Equipamentos <tecn...@...> escreveu > > Olá a todos, sou iniciante com o Delphi e estou > precisando de uma ajuda com o TOpenDialog. > > O meu problema: > - Preciso que quando eu execute o TOpenDialog, > ele seja direcionado para a pasta onde o programa foi instalado, sempre! > - O problema eh que não sei onde será instalado o > programa, pois sabendo-se bastava utilizar a > opção InitialDir com ForceCurrentDirecotry := True. > - Isso se deve a fato deu utilizar o > InstallShield para a pessoa escolher o diretorio de instalação. > > Alguem pode me passar o Código para descobrir a pasta de instalação. > > Obrigado