6 respuestas en este tema

[eduarcol]

Bueno, realmente eso es lo que necesito, poder obtener el nombre del ejecutable que crea el servicio desde el mismo servicio,


Es que estoy creando un servicio que se conecta a la BD y los datos de configuracion los coloco en el mismo directorio que esta el ejecutable, la duda es como puedo recuperar esta ruta para poder obtener los datos de la conexion.


Espero haberme explicado

[TiammatMX]

Quiero pensar que el consabido ExtractFilePath(Application.EXEName) no te sirve...

[eduarcol]

Al ser una aplicacion de tipo servicio el objeto APplication hereda de TServiceApplication que no tiene esa propiedad. 


Gracias de todas formas

[escafandra]

Vamos a usar la API:

delphi

function GetExeName: ShortString;
begin
  Result[0]:= char(GetModuleFileName(0, @Result[1], sizeof(ShortString)));
end;

Saludos.

[seoane]

No lo he probado pero el ParamStr(0) ¿no funciona?

[escafandra]

No lo he probado pero el ParamStr(0) ¿no funciona?

Pues he probado esa opción y la propuesta mas arriba y ambas funcionan (al menos en un servicio escrito en C++ desde la API)

Saludos.

[eduarcol]

Si ambas opciones devuelven lo mismo, lo que sucede es que por descuido de mi parte habia probado era con params[0] y eso solo me devolvia el nombre del servicio, pero con ParamStr y la funcion de GetExeName.


Gracias a los dos