Hola, eso, no recuerdo ninguna función que me diga si está instalado un programa, y si lo está que me devuelva la ruta al mismo.
Algo así como:
Código Delphi
[-]function EstaInstalado(cPrograma:string):string;
begin
result:='';
if jfdsjfdsfj(cPrograma) then
result PathAlPrograma;
end;
Ejemplo:
Código Delphi
[-]ShowMessage( EstaInstalado('ibexpert') );