Buscar Ejecutable asociado a extensión

[Casimiro Noteví]

Código Delphi [-]
function BuscarEjecutableAsociado( Fichero:string ):string;
var
   Ejecutable:Pchar;
begin
   GetMem(Ejecutable,200);
   FindExecutable(Pchar(Fichero),nil,Ejecutable);
   Result:=String(Ejecutable);
   FreeMem(Ejecutable,200);
end;

Y la llamada sería algo así como:

Código Delphi [-]
cPrograma := BuscarEjecutableAsociado( 'c:\libros\CaraOcultaDelphi.pdf' );

Esto devolvería algo así: 'C:\Archivos de programa\Adobe\Acrobat 7.0\Reader\AcroRd32.exe'

[[seoane]]

Solo añadir que si el archivo no existe, devolvera un string vacio. Es decir, si 'c:\libros\CaraOcultaDelphi.pdf' no es un archivo real la funcion devolvera un string vacio

[Neftali [Germán.Estévez]]

Sólo añadir que se debe poner en el uses la unit: ShellAPI