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 >>>>>

<*> 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