ExtractFilePath(ArquivoSelFoto);

depois que ele já estiver com o endereço do arquivo setado.

Filipe Xavier Ramalho
Desenvolvimento
Telefone: (41) 3219-2043
Duty Sistemas de Gerenciamento de Riscos S/A
http://www.duty.com.br

Antes de imprimir pense no MEIO AMBIENTE!


  -----Mensagem original-----
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Cícero
  Enviada em: sexta-feira, 21 de outubro de 2005 11:40
  Para: delphi-br@yahoogrupos.com.br
  Assunto: RES: [delphi-br] Selecionar só o diretório


  Ninguém respondeu ainda...

  -----Mensagem original-----
  De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
  nome de Cícero
  Enviada em: quinta-feira, 20 de outubro de 2005 17:01
  Para: Listadelphi (E-mail)
  Assunto: [delphi-br] Selecionar só o diretório


  Fiz esta rotina que está funcionando maravilhosamente, porém, no
  ARQUIVOSELFOTO, eu só quero o diretório e não diretório e arquivo.jpg

  o que está faltando?

  begin
    openDlgBD.Filter := 'Bases de Dados Access|*.jpg;*.gif;*.jpeg';
     openDlgBD.Title := 'Seleção do banco de dados do sistema';
     DirExe := ExtractFilePath(ParamStr(0));
     openDlgBD.InitialDir := DirExe;

     if openDlgBD.execute then
        begin
         ArquivoSelfoto := trim(OpenDlgBD.FileName);
         edpathfoto.Text := trim(OpenDlgBD.FileName);
        end;
  end;



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



  Links do Yahoo! Grupos








  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





        Yahoo! Grupos, um serviço oferecido por:
              PUBLICIDADE




----------------------------------------------------------------------------
--
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

    c.. 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]
 
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

 



Responder a