Ralp, se estiver usando o OpenDialog faça como abaixo:
var
dlg: TOpenDialog;
...
dlg := TOpenDialog.Create(Self);
// podia ser dlg := TOpenDialog.Create(nil);
try
dlg.DefaultExt := 'jpeg';
dlg.Filter := ' Arquivo
<http://www.forumweb.com.br/foruns/index.php?/topic/31985-criar-opendialog/#>
de Imagem (*.jpeg)|*.jpeg|Todos os arquivos (*.*)|*.*';
dlg.Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist];
dlg.Title := 'Diretório das Imagens';
dlg.InitialDir := ExtractFilePath(Application.ExeName);
if dlg.Execute then begin
// dlg.FileName tem o nome do arquivo
end;
finally
dlg.Free;
end;
Espero ter ajudado.
Em 22 de fevereiro de 2010 07:54, Ralp Alves Bezerra <ral...@gmail.com>escreveu:
>
>
> Bom dia nobre colegas, estou com uma dúvida e mais uma vez recorro a lista.
>
> Teria uma maneira via Delphi de configurar a pasta em que as imagens serão
> digitalizadas.
>
> Ex.: Ao abrir meu sistema o mesmo já configurar a pasta que desejo salvar
> as
> imagens.
>
> As imagens serão digitalizadas em um scanner de alta velocidade e após a
> digitalização serão importadas para o meu sistema pegando as imagens na
> pasta que configurei.
>
> Estou utilizando Delphi 7 e Firebird 2.1.
>
> Agradeço desde já e abraço a todos.
>
> Ralp Alves
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Grato,
Jorge Ericsson S. Pinheiros
Ericsson Sistemas e Soluções
(61) 3244-4748 / 8592-9960 / 9227-4785
http://www.jericsson.com.br
jericsson...@gmail.com
jericsson...@jericsson.com.br
skype:jericsson
Brasília - DF
[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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
