Ver Mensaje Individual
  #1  
Antiguo 20-06-2006
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is online now
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.022
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Buscar Ejecutable asociado a extensión

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'
Responder Con Cita