Procure no Help pela função SelectDirectory
[]'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de itasouza Enviada em: quinta-feira, 5 de junho de 2008 14:50 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Gravar caminho de imagens no registro do windows Amigos Estou fazendo uma rotina para gravar um caminho e desta forma gravar imagens na maquina sem ser necessário gravar no banco de dados. Fiz assim: procedure TForm1.FormShow; begin with TRegistry.Create do try RootKey := HKEY_LOCAL_MACHINE; OpenKey('\SOFTWARE\imagens',True); editImagem.Text := ReadString('Imagem'); finally CloseKey end; end; e estou gravando assim: procedure TForm1.btnGravarClick(Sender: TObject); begin with TRegistry.Create do try RootKey := HKEY_LOCAL_MACHINE; OpenKey('\SOFTWARE\imagens',True); WriteString('imagem',editImagem.Text); finally CloseKey end; Close; end; Para faciltar a busca do caminho estou utilizando o Opendialog jogando resultado dentro de um edit: procedure TForm1.BitBtn1Click(Sender: TObject); begin If OpenDialog1.Execute then begin editImagem.Text := ExtractFilePath(Opendialog1.Filename); end; end; Ocorre que só consigo selecionar um caminho se estiver com um arquivo anexado, caso seja a pasta vazia ele não e capturado. Agradeço a ajuda!! [As partes desta mensagem que não continham texto foram removidas]
