Com definir o caminho de arquivos externo a aplicação???????

Delphi

14/05/2003

Tenho um aplicativo, onde chamo arquivos externos a aplicação:

´ loadfromfile:= (´ E:\ foto.jpg´)...´

´Filename := (´D:\´ musica.mp3´)...´

Base de dados ( C:\dados...)

Esses arquivos estão divididos em três diretórios, na minha máquina...
Só que quando eu instalar esse aplicativo na máquina de um cliente, certamente vai dar erro, a não ser que ele também crie os mesmos caminhos que o meu, e se ele quiser instalar o programa em ´C, D, G ´ ??? Isso não tem lógica alguma !!!

Gostaria de criar um caminho único para:
O Executável, base de dados, arquivos de som, imagem e vídeo...
Dando opção do Usuário instalar em C,D,E,F...


Certamente terei que alterar o código onde faço as referências de:
´ C:\ , D:\, E:\...´ de que maneira ???????????


Lbsystems

Lbsystems

Curtidas 0

Respostas

Dedi

Dedi

14/05/2003

function ProgPath(filename:String):string;
var
  st:string;
begin
   st:= application.ExeName;
   result:= extractfilepath(st)+filename;
end;


Utilize esta função que retorta o caminho de seu aplicativo.


exemplo:

image1.Picture.LoadFromFile(copy(ProgPath(´project1.exe´),1,3)+´foto.jpg´);

Dedi


GOSTEI 0
Rmfb

Rmfb

14/05/2003

Caro amigo, a sua implementação foi ótima, porém, existem um jeito mais fácil: utilize um OpendialogPicture e crie um botão ´Carregar Imagem´


Procedure TForm1.botãoCarregarImagem(Sender:TObject);
Begin
If OpendialogPicture.Execute Then
OpendialogPicture.Picture.LoadFromFile(OpendialogPicture.FileName);
End;


GOSTEI 0
POSTAR