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:

Código Delphi [-]
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 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.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  ubicacion:String;
begin
  ubicacion:=ExtractFilePath(Application.ExeName);
end;

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

Empezado por Ayuda Delphi

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

Código Delphi [-]
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.