Este código abaixo funcionou... Valeu pela ajuda
procedure TForm1.Button1Click(Sender: TObject); var caminho : String; begin caminho := ExtractFilePath(ParamStr(0)); Edit1.Text := caminho; OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)); OpenDialog1.Execute; end; end. At 17:21 17/2/2009, you wrote: >OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName); > >acho que esse codigo vai te servir > >[]'s > >--- Em ><mailto:delphi-br%40yahoogrupos.com.br>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 > > [As partes desta mensagem que não continham texto foram removidas]
