como abrir arquivo de diretório desconhecido?

16/03/2017

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

Melhor resposta

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

Responder Citar

Outras Respostas

16/03/2017

Raylan

ExtractFilePath(Application.Exename) + 'arquivoxyz.doc'
Responder Citar

17/03/2017

Henrique Diomedes

Onde coloco? Tem que fazer uma procedure?
Responder Citar

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:...).
Responder Citar