Para saber la ruta donde está instalado tu programa:
Código Delphi
[-]
MiRuta := ParamStr(0);
MiUnidad := ExtractFileDrive(MiRuta);
no recuerdo si paramstr(0) pasa la ruta completa, pero si no lo hiciera, podes completarla con una llamada a ExpandFileName.
Hasta luego.