Buscar Ejecutable asociado a extensión

[Casimiro Notevi]

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:

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