ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Open folder no xe2 [Resolvido]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
jonathanfirst
Aprendiz
Aprendiz


Registrado: Sábado, 28 de Abril de 2012
Mensagens: 187
MensagemEnviada: Sex Jan 11, 2013 8:41 am    Assunto: Open folder no xe2 [Resolvido] Responder com Citação
No meu sistema tenho que direcionar a pasta onde ficam as imagens do sistema, mas como eu faço pra dar um open folder ? o open dialog procura os arquivos, eu queria procurar só a pasta
_________________
O que que acho ? ... Cachorro ?
Visite http://www.lojacentraltech.com/

Editado pela última vez por jonathanfirst em Sex Jan 11, 2013 9:29 am, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
MensagemEnviada: Sex Jan 11, 2013 9:18 am    Assunto: Responder com Citação
tenta isto

Código:
uses FileCtrl;

const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;

_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
jonathanfirst
Aprendiz
Aprendiz


Registrado: Sábado, 28 de Abril de 2012
Mensagens: 187
MensagemEnviada: Sex Jan 11, 2013 9:28 am    Assunto: Responder com Citação
isso mesmo, valeu
_________________
O que que acho ? ... Cachorro ?
Visite http://www.lojacentraltech.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB