4 replies to this topic

[escafandra]

Como complemento a la función RegisterFileType, os dejo este otro truco, esta vez para eliminar la asociación entre un tipo de archivo con un ejecutable.

cpp

#define ShlObjHPP
#include <vcl.h>
#pragma hdrstop
 
#include <shlobj.h>
#include <Registry.hpp>
 
void UnRegisterFileType(AnsiString Ext, AnsiString PathExec, BOOL Full)
{
  // Ext tipo de archivo : EXTENSION
  // PathExec: RUTA COMPLETA del ejecutable que queremos asociar
 
  TRegistry *Registry = new TRegistry;
  try{
    Registry->RootKey = HKEY_CLASSES_ROOT;
 
    // Borrar la clave .Ext
    if(Full)
      Registry->DeleteKey("." + Ext);
    else if(Registry->OpenKey("." + Ext, false)){
      // Valor con el nombre del tipo de archivo para esta clave (extfile)
      Registry->DeleteValue("");
      Registry->CloseKey();
    }
 
    // Borrar la clave del nombre del tipo de archivo dado antes (extfile)
    if(Registry->KeyExists(Ext + "file")){
      if(Full)
        Registry->DeleteKey(Ext + "file");
      else{
        // Crear una nueva clave para el icono por defecto
        if(Registry->OpenKey(Ext + "file\\DefaultIcon", true)){
          // Crear un valor con el icono (PathExec.exe,0)
          if(Registry->ReadString("").Pos(PathExec))
             Registry->DeleteValue("");
          Registry->CloseKey();
        }
        if(Registry->OpenKey(Ext + "file\\shell\\open\\command", true)){
          //Crear el valor para el ejecutable que abre el tipo de archivo (PathExec.exe "%1")
          if(Registry->ReadString("").Pos(PathExec))
            Registry->DeleteValue("");
           Registry->CloseKey();
        }
      }
    }  
  }
  __finally{
    delete Registry;
  }
  // Notificar al sistema el cambio efectuado
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);
}

El parámetro bool Full sirve para eliminar por completo las claves creadas para el tipo de archivo con la función RegisterFileType. Si se le da el valor true lo hará, si es false, sólo eliminará los valores referentes a la aplicación que lo abre y de su icono.

Que le saquéis partido

Saludos.

[egostar]

Muy bueno amigo escafandra, por supuesto que se le puede sacar partido a tu código, es frecuente que requieras de cambiar la asociación de archivos

Salud OS

[enecumene]

Amigo escafandra, tendrás la traducción de ese code en Delphi?, porque al tratar de traducirlo me da problemas en una linea, que es:

cpp

if (Registry->ReadString('').Pos(PathExec))

No sé el motivo del punto y luego la función Pos .

Saludos.

[escafandra]

Amigo escafandra, tendrás la traducción de ese code en Delphi?, porque al tratar de traducirlo me da problemas en una linea, que es:

cpp

if (Registry->ReadString('').Pos(PathExec))

No sé el motivo del punto y luego la función Pos .

Saludos.

En Builder C++ tanto String como AnsiString son una clase. Las funciones de cadena, y entre ellas Pos, son tratadas como miembros de la clase, de aquí la sintaxis con el "punto". La traducción correcta sería:

delphi

if Pos(Registry.ReadString(''), PathExec) <> 0 then

Traduzco todo el código:

delphi

uses
  ShlObj, Registry;
 
//.................................
 
 
procedure UnRegisterFileType(Ext, PathExec: String; Full: boolean);
var
 Registry: TRegistry ;
begin
  // Ext tipo de archivo : EXTENSION
  // PathExec: RUTA COMPLETA del ejecutable que queremos asociar
 
  Registry:= TRegistry.Create;
  try
    Registry.RootKey:= HKEY_CLASSES_ROOT;
 
    // Borrar la clave .Ext
    if Full = TRUE then
      Registry.DeleteKey('.' + Ext)
    else if Registry.OpenKey('.' + Ext, false) = TRUE then
    begin
      // Valor con el nombre del tipo de archivo para esta clave (extfile)
      Registry.DeleteValue('');
      Registry.CloseKey();
    end;
 
    // Borrar la clave del nombre del tipo de archivo dado antes (extfile)
    if Registry.KeyExists(Ext + 'file') = TRUE then
    begin
      if Full = TRUE then
        Registry.DeleteKey(Ext + 'file')
      else
      begin
        // Crear una nueva clave para el icono por defecto
        if Registry.OpenKey(Ext + 'file\DefaultIcon', true) = TRUE then
        begin
          // Crear un valor con el icono (PathExec.exe,0)
          if Pos(Registry.ReadString(''), PathExec) <> 0 then
             Registry.DeleteValue('');
          Registry.CloseKey();
        end;
        if Registry.OpenKey(Ext + 'file\shell\open\command', true) = TRUE then
        begin
          //Crear el valor para el ejecutable que abre el tipo de archivo (PathExec.exe "%1")
          if Pos(Registry.ReadString(''), PathExec) <> 0 then
            Registry.DeleteValue('');
          Registry.CloseKey();
        end;
      end;
    end;
  finally
    Registry.Free;
  end;
  // Notificar al sistema el cambio efectuado
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

Saludos.

[enecumene]

Ah caray, nunca me iba a imaginar eso, la traducción que tengo es igual al que pones a excepción de esas líneas , para las próxima tomo nota , gracias amigo.

Saludos.