ubicacion del ejecutable

[Max_E.]

Hola a todos:

quiciera saber si hay algun codigo para saber la ubicacion del ejecutable que estoy utilizando en ese momento es decir en tiempo de ejecucion por ejemplo:



procedure TForm1.Button1Click(Sender: TObject);
var
ubicacion:string;
begin

ubicacion:=xxxxxx(proyect.exe);
edit1.text:=ubicacion;

end;

en el edit se veria 'C:nueva carpeta\demos\prueba de busqueda'

No creo que sea tan facil como esto :o pero agradeseria si alguien me pudiese ayudar

[Héctor Randolph]

Hola Max_E.

Prueba con la propiedad ExeName de la variable Application, la puedes combinar con la función ExtractFilePath para tomar solamente la ruta.


procedure TForm1.Button1Click(Sender: TObject);
var
ubicacion:String;
begin
ubicacion:=ExtractFilePath(Application.ExeName);
end;


Otra forma es usar la función ParamStr():


On Windows, ParamStr(0) returns the path and file name of the executing program (for example, C:\TEST\MYPROG.EXE).



procedure TForm1.Button1Click(Sender: TObject);
var
ubicacion:String;
begin
ubicacion:=ExtractFilePath(ParamStr(0));
end;


Saludos

[Max_E.]

ok héctor randolph

muchas gracias por tu ayuda.