ler e gravar caminho imagem

[rebotea]

Boas

tenho uma aplicação que desejava gravar imagens pelo caminho estivesse em qualquer parte do sistema:

Desta forma se a aplicação estiver em C:\ ou em D:\ funciona bem mas se a meter em Program Files não da.. alguém tem ideia como ajudar...

procedure TULTRASONS.imagemEqClick(Sender: TObject);
var
Diretorio1 : String; {caminho aonde vai ficar salvo as imagens}
begin
if OpenPictureDialog1.Execute then
begin
self.Tultrasons.Edit;
DbImage2.Picture.LoadFromFile(OpenPictureDialog1.Filename);
Diretorio1 :='\Fotos\'+'ImgEQ'+TultrasonsENTRADA_N.text+'.jpeg';
dbimage2.Picture.SaveToFile(diretorio1);
TultrasonsIMAGEM_EQ.AsString := diretorio1;
self.Tultrasons.Post;
DbImage2.Picture.LoadFromFile(ExtractFilePath( Application.ExeName)+ TultrasonsIMAGEM_EQ.AsString );
end;

brigado

[Rafael Spilki]

Que linguagem é essa amigo?

[rebotea]

delphi

[Rafael Spilki]

Vou mover para a área adequada... você postou na sala de ASP!

[]'s Rafael Spilki