12 respuestas en este tema

[enecumene]

Hola compañeros, aquí he llegado a un puento de mi proyecto que para mí son aguas desconocidas, se trata de la aplicación de un menú contextual al explorardor de Windows, tengo un code donde se agrega el dichoso menú al registro de windows que adapté a mi necesidad, pero hay algunas cosas que no las tengo muy claro y espero que me puedan ayudar con eso, aquí coloco el code:

delphi

procedure SetContextMenu(Root,Ext: string);
var
  sTypeName: string;
begin
  with TRegistry.Create do
    try
      RootKey := Root;
      { Set the extension you want. Include the '.' character }
      OpenKey('.'+LowerCase(Ext), True);
      { Get file type name }
      sTypeName := ReadString('');
      CloseKey;
      { Create explorer extension. Instead of 'Open' put whatever you want. }
      OpenKey('' + sTypeName + 'ShellOpen', True);
      { The context menu item }
      WriteString('', 'Play with MiniPlayer');
      CloseKey;
 
      OpenKey('' + sTypeName + 'ShellOpenCommand', True);
      { The commandline. Enter all the commandline options you need.
        Remember to use quotes for long file names with spaces. Even if your
        application's filename doesn't contain any spaces the folder that
        it's in may contain them.
        %1 - is the selected file's name. }
      WriteString('', '"' + Application.ExeName + '" "%1"');
      CloseKey;
    finally
      Free;
    end;
end;

Como verán el code lo hice como un procedimiento, ahora, hay ciertas cosas como dije anteriormente que no las tengo muy claro, y las dudas las tengo en las siguientes líneas:

delphi

sTypeName := ReadString('');

delphi

{ Create explorer extension. Instead of 'Open' put whatever you want. }
      OpenKey('' + sTypeName + 'ShellOpen', True);

delphi

OpenKey('' + sTypeName + 'ShellOpenCommand', True);

En esas tres líneas no entiendo que debo poner en sTypeName, no sé a qué se refiere con ShellOpen y ShellOpenCommand, nada de nada, a ver si alguno de ustedes me trae la luz en este asunto.

Saludos.

[Wilson]

Amigo mirá si esto te sirve, parece estar mas detallado.

delphi

{
To add a context menu item to Windows Explorer you have create a few
entries in
the system Registry. First you have to get the file type's name, add the
context
menu item and add then the command line. Besides files you can add
context menus
to drives or folders.
Special extensions:
- .drive - drives.
- .folder - folders.
}
 
uses
  Registry;
  // ...
var
  sTypeName: string;
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_CLASSES_ROOT;
      { Set the extension you want. Include the '.' character }
      OpenKey('.Extension', True);
      { Get file type name }
      sTypeName := ReadString('');
      CloseKey;
 
      (* Create explorer extension.
       *
       * Instead of 'Open' put whatever you want.
       *)
      OpenKey('' + sTypeName + 'ShellOpen', True);
      { The context menu item }
      WriteString('', 'Open in my application');
      CloseKey;
 
      OpenKey('' + sTypeName + 'ShellOpenCommand', True);
      (* The commandline. Enter all the commandline options you need.
       * Remember to use quotes for long file names with spaces. Even if
your
       * application's filename doesn't contain any spaces the folder that
       * it's in may contain them.
       *
       * %1 - is the selected file's name.
       *)
      WriteString('', '"' + Application.ExeName + '" "%1"');
      CloseKey;
 
      (* Repeat this for every file type you want to add a context menu
to.
       * For this operation you may want to use a for loop and a constat
       * string array with the file extensions.
       *)
    finally
      Free;
    end;
end;

[enecumene]

Gracias Wilson, pues es prácticamente lo mismo, pero ese no es el caso, el caso es que no entiendo qué valores colocar en las líneas que mencioné anteriormente.

Saludos.

[Wilson]

Por allá encontré un hilo viejo del CD, puede que esto explique algo:

En cuanto a lo de la clave del registro, en realidad son varias:

-Primero, en HK_CLASSES_ROOT buscas la extensión del archivo (.ext, por ejemplo) y el valor "(Predeterminado)" escribes lo que sea (algo que puedas recordar, en este ejemplo "myapp.ext") En el caso de que ya haya algo escrito ir al siguiente paso.
-Después crear la clave HK_CLASSES_ROOT\myapp.ext (o lo que hayas escrito antes). Ahí, en "(Predeterminado)" escribes la descripción del archivo, y creas dos SubClaves "DefaultIcon" y "shell"
-En "Predeterminado" de DefaultIcon escribes el archivo de icono que quieras poner con el índice (ejemplo: "C:\Windows\system32\shell32.dll,14" ó "C:\Archivos de programa\MyApp\MyApp.exe,0") Este icono será con el que aparezca en el Explorador.
-En "Shell" creas tantas claves como subitems quieras en el Explorador. Por ejemplo creas "open" (esta es la que se ejecuta por defecto), en "Predeterminado" de "open" pones lo que quieras que aparezca en el Item del menú del Explorador, creas en "open" una subclave llamada "command" y en su valor "Predeterminado" escribes el comando a ejecutar (Por ejemplo "C:\archivos de programa\MyApp\Myapp.exe %1") "%1" sirve para indicar el archivo seleccionado.

En teoría ya está todo hecho, pero para que en Explorador aparezcan los cambios debes reiniciar sesión o ejecutar la función SHChangeNotify de la API de windows (está en la unit "ShlObj" o en "Ole2", no lo recuerdo bien) con los valores adecuados (mira la ayuda de la función).



En cuanto lo del ejemplo que incorpora Delphi, eso es especial, porque permite con una DLL crear cuantos items necesites, o ninguno si el archivo no es compatible, y poner icono en el Item y la propiedad Hint, pero también es más complejo.

Espero que te sirva de ayuda

[escafandra]

[HKEY_CLASSES_ROOT\*\shell\Nombre_Aplicacion\command]
Valor = Ruta de la aplicación %1

[HKEY_CLASSES_ROOT\Folder\shell\Nombre_Aplicacion\command]
Valor = Ruta de la aplicación %1


Saludos.

[enecumene]

Gracias escafandra, pero ahora que traducí el code de las asociaiones de archivos en C++ que publicaste meses atrás, me dije que eso me podría ser útil, ya que puedo matar dos pájaros de un tiro , lo hice fue agregar la parte donde agrego el menú contextual y la cosa me queda así:

delphi

procedure RegisterFileType(Ext,PathExec: string);
var Registry: TRegistry;
    sTypeName: string;
begin
  Registry := TRegistry.Create;
    try
      Registry.RootKey := HKEY_CLASSES_ROOT;
      //Crear la Clave .Ext
      if (Registry.OpenKey('.'+LowerCase(Ext), True)) then
       begin
         sTypeName := Registry.ReadString('');
         // Valor con el nombre del tipo de archivo para esta clave (extfile)
         Registry.WriteString('', LowerCase(Ext) + 'file');
         Registry.CloseKey;
       end;
 
       //creamos el item del menu
       if (Registry.OpenKey('' + sTypeName + 'shell\\Open', true)) then
        begin
          Registry.WriteString('', 'Play with MiniPlayer');
          Registry.CloseKey;
        end;
 
      // Crear una clave nueva para el nombre del tipo de archivo dado antes (extfile)
      if (Registry.CreateKey(LowerCase(Ext) + 'file')) then
        begin
          // Crear una nueva clave para el icono por defecto
          if (Registry.OpenKey(LowerCase(Ext) + 'file\\DefaultIcon', true)) then
           begin
             // Crear un valor con el icono (PathExec.exe,0)
             Registry.WriteString('', PathExec + ',0');
             Registry.CloseKey;
           end;
           if (Registry.OpenKey(LowerCase(Ext) + 'file\\shell\\open\\command', true)) then
           begin
             //Crear el valor para el ejecutable que abre el tipo de archivo (PathExec.exe "%1")
             Registry.WriteString('', PathExec + '"%1"');
             Registry.CloseKey;
           end;
        end;
    finally
      Registry.Free;
    end;
 SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, 0, 0);
end;

Aún no lo he probado, por temor a meter la pata y 'chingar' windows, me gustaría que me confirmaras amigo escafandra si está bien.

Saludos

[escafandra]

Prueba con esto:

delphi

uses
  Registry, ShlObj;
 
procedure RegisterFileType(Ext,PathExec: string);
var Registry: TRegistry;
//    sTypeName: string;
begin
  Registry := TRegistry.Create;
    try
      Registry.RootKey := HKEY_CLASSES_ROOT;
      //Crear la Clave .Ext
      if (Registry.OpenKey('.'+LowerCase(Ext), True)) then
       begin
//         sTypeName := Registry.ReadString('');
         // Valor con el nombre del tipo de archivo para esta clave (extfile)
         Registry.WriteString('', LowerCase(Ext) + 'file');
         Registry.CloseKey;
       end;
 
       //creamos el item del menu
       if (Registry.OpenKey('Folder\shell\' + 'Play with MiniPlayer' + '\command', true)) then
        begin
          Registry.WriteString('', PathExec + ' "%1"');
          Registry.CloseKey;
        end;
       if (Registry.OpenKey('*\shell\' + 'Play with MiniPlayer' + '\command', true)) then
        begin
          Registry.WriteString('', PathExec + ' "%1"');
          Registry.CloseKey;
        end;
 
      // Crear una clave nueva para el nombre del tipo de archivo dado antes (extfile)
      if (Registry.CreateKey(LowerCase(Ext) + 'file')) then
        begin
          // Crear una nueva clave para el icono por defecto
          if (Registry.OpenKey(LowerCase(Ext) + 'file\DefaultIcon', true)) then
           begin
             // Crear un valor con el icono (PathExec.exe,0)
             Registry.WriteString('', PathExec + ',0');
             Registry.CloseKey;
           end;
           if (Registry.OpenKey(LowerCase(Ext) + 'file\shell\open\command', true)) then
           begin
             //Crear el valor para el ejecutable que abre el tipo de archivo (PathExec.exe "%1")
             Registry.WriteString('', PathExec + '"%1"');
             Registry.CloseKey;
           end;
        end;
    finally
      Registry.Free;
    end;
 SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

Saludos.

[pcicom]

Saludos ENECUMENE...

Bajate VIRTUALBOX y create un Windows Virtual y asi te lo puedes chingar cuantas veces quieras... jejejejej


Me causo mucha gracia lo de 'chingar'...  jejejejej... 

Yo tengo con VITRUALBOX sistemas que utilizo como LABORATORIO si pasa ALGO.. simplemente lo vuelvo a CARGAR..y no PASA NADA...

SALUDOS..

[egostar]

...... Me causo mucha gracia lo de 'chingar'......

Es que nuestro amigo enecumene, ya está mas mexicanizado que nadie

Salud OS

[enecumene]

Esa es una buena idea amigo pcicom, ya estoy descargandolo, luego les comento despúes de "chingarlo" .

Saludos.

[enecumene]

Hola de nuevo, luego de haber instalado el virtualbox y windows xp probé la mejora de escafandra y me ha funcionado perfectamente no se me "chingó" el windows .

Saludos.

[enecumene]

Dejo muestras del resultado en el anexo.

Saludos.

[pcicom]

Da gusto que hayas seguido el CONSEJO...    y a chingar..  se ha dicho...  JEJEJEJEJ