Fórum como abrir arquivo de diretório desconhecido? #578066
16/03/2017
0
Henrique Diomedes
Curtir tópico
+ 0Post mais votado
17/03/2017
Raylan Zibel
Gostei + 1
Mais Posts
16/03/2017
Raylan Zibel
ExtractFilePath(Application.Exename) + 'arquivoxyz.doc'
Gostei + 0
17/03/2017
Henrique Diomedes
Gostei + 0
19/03/2017
Henrique Diomedes
procedure TForm1.Localizar(Local: string; ListBox: TListBox);
var
SearchRec: TSearchRec;
begin
Local:= Trim(Local);
if Local[length(Local)] <> '' then
Local:= Local + '';
SetCurrentDir(Local);
if FindFirst('*.*', faAnyFile, SearchRec) = 0 then // modifica aqui Ex: para mp3 '*.mp3'
Repeat
ListBox.Items.Add(SearchRec.Name);
Until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Localizar('E:\\videos', ListBox1); // mais quando coloco em outro computador meu HD muda ('D:,ou A:...).
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)