Asociar una extension a un programa

Por Saiyine  el 2001-01-01 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 440

{Hay que poner Uses Registry
Solo WIN95 o superior, probablemente problemas en los NT
ext : extension
nom : nombre del tipo de ficheros
pro : cadena con la direccion _completa_ del programa, yo suelo usar paramstr(0)
icoindice : indice de icono del ejecutable, dejalo a 0 si no sabes que significa.
  RegistrarExtension('.jpg','Imagen JPEG',paramstr(0),0);
  RegistrarExtension('.pelicula','c:\utilidades\cine.exe',0);
}
procedure RegistrarExtension(ext,nom,pro : string; icoindice : integer);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  with reg do
    begin
      RootKey := HKEY_CLASSES_ROOT;
      LazyWrite := false;
      OpenKey(ext, true);
      WriteString('',nom);
      CloseKey;
      OpenKey(nom, true);
      WriteString('',nom);
      CloseKey;
      OpenKey(nom+'\shell\open\command', true);
      WriteString('',pro+' "%1"');
      CloseKey;
      OpenKey(nom+'\DefaultIcon',true);
      WriteString('',pro+','+inttostr(icoindice));
      CloseKey;
      free;
    end;
end;