como abrir arquivo de diretório desconhecido?
16/03/2017
0
Fiz um .exe, que abre arquivos do meu hd externo equeria seber como faço para abrir quando coloco em outro computador ja que o diretório muda. Gostaria de saber se da pra fazer isso, "achar um arquivo que o diretório muda".
Henrique Diomedes
Curtir tópico
+ 0
Responder
Post mais votado
17/03/2017
Procure por "autorun" se voce quer que seu executavel seja aberto quando o dispositivo for conectado. Sabendo que o sistema pode identificar como virus.
Raylan Zibel
Responder
Mais Posts
16/03/2017
Raylan Zibel
ExtractFilePath(Application.Exename) + 'arquivoxyz.doc'
Responder
19/03/2017
Henrique Diomedes
eu to usando assim:
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:...).
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:...).
Responder
Clique aqui para fazer login e interagir na Comunidade :)
