ubicacion del ejecutable
 

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 :o pero agradeseria si alguien me pudiese ayudar

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():

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

Saludos

ok héctor randolph

muchas gracias por tu ayuda.