Detectar directorio de instalación de MS Excel

[DanForever]

Ante todo, gracias por leer mi post. Y ahí va mi pregunta:

¿Cómo se podría obtener (del registro de windows, o de algun otro sitio) si está instalado en el equipo MS Excel, y en caso afirmativo, el directorio donde está instalado?

Es que tengo en mi aplicación un button que tendría que iniciar el programa Excel, y que éste abriera un fichero, cuya ruta se obtiene de un Edit1.Text, y sólo necesito saber el como obtener de algun sitio el directorio donde esté instalado el MS Excel.

Gracias de nuevo por vuestro tiempo.

[[seoane]]

Es solo una sugerencia, pero sabiendo la ruta del archivo que quieres abrir creo que es mas sencillo usar esto

Código Delphi [-]
uses ShellApi;

ShellExecute(Handle, 'open', PChar('C:\Arhivo.xls'), nil, nil, SW_SHOW);

Pero si quieres conseguir la ruta del ejecutable de excel, puedes usar algo como esto:

Código Delphi [-]
uses ShellApi;

function Ejecutable(Archivo: string): string;
var
  Buffer: array[0..MAX_PATH] of Char;
begin
  if FindExecutable(PChar(Archivo), nil, @Buffer) > 32 then
    Result:= String(PChar(@Buffer))
  else
    Result:= '';
end;


// Para usarlo
ShowMessage(Ejecutable('d:\Contabilidad.xls'));
// el archivo tiene que existir para que funcione

[DanForever]

Gracias por la ayuda!!

Empezado por seoane

Código Delphi [-]
ShellExecute(Handle, 'open', PChar('C:\Arhivo.xls'), nil, nil, SW_SHOW);

He usado el pimer código, que hace justamente lo que quería. En una instrucción anterior se creaba el archivo, y con este código, puedo abrir ese mismo archivo