Filipe,
Use a API do Windows que abre a árvore de diretórios
No OnClick do botão, faça:
procedure TForm1.Button1Click(Sender: TObject);
var lpItemID : PItemIDList; // uses ShlObj;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, SizeOf(TBrowseInfo), #0);
BrowseInfo.pszDisplayName := @DisplayName;
BrowseInfo.lpszTitle := PChar('Diretorio de Origem');
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemID <>nil then begin // se escolheu a pasta
SHGetPathFromIDList(lpItemID,TempPath);
edtOrigemFontes.Text := TempPath;
GlobalFreePtr(lpItemID);
end else edtOrigemFontes.Text := ''; // caso tenha clicado em cancelar
end;
Coloque na Uses, a unit ShlObj
O diretório escolhido vai para o text do edit(edtOrigemFontes).
(Dica retirada do Livro Delphi, API's e Sockets(acho que é isso))
Abraços,
Eduardo RC Neto
Desenvolvimento de Sistemas
----------------------------------------------
Archive ISP - Rio de Janeiro - RJ
[EMAIL PROTECTED]
www.archive.com.br
-------Mensagem original-------
De: [EMAIL PROTECTED]
Data: 09/09/04 15:53:27
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Folder
Olá... mmm... Como vou explicar... Tp, Se quero q no meio da minha aplicação
o usuário possa abrir um arquivo (ou especificar seu caminho), coloco um
opendialog, certo?
Mas e se eu quiser abrir um diálogo para expecificar um caminho de pasta,
faço como???
Valeu!
---------------------------------
Yahoo! Acesso Grátis - navegue de graça com conexão de qualidade!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
