Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Agregar Item a Menu Windows (https://www.clubdelphi.com/foros/showthread.php?t=27908)

m@kio 02-12-2005 22:45:36

Agregar Item a Menu Windows
 
Mi duda es como hacer para agregar un Item al menu que aparece al dar click derecho en el escritorio de Windows?

Espero haberme explicado bien, y ojala me puedan ayudar

Bicho 05-12-2005 10:16:52

Instalar Opcion al Menu Contextual Windows
 
Que tal,

no se si te he entendido bien pero a ver si esto lo que buscas: (sacado de trucomania)

Tal como hace el Winzip, (por ejemplo), que si en el explorer de Windows, al pulsar con el boton derecho
sobre un fichero, disponemos de una opcion en el menu para crear con el un fichero ZIP.
Con este truco, podras asociar a una (o varias) extensiones tu aplicacion, para que se comporte de igual
manera que el Winzip...
Sólo funciona con las extensiones ya registradas en Windows, pero usando el truco de registrar extensiones se arregla

Código Delphi [-]
procedure InstalaMenuContextual(Extension, Comando, CaptionMenu : string);
var Registro : TRegistry;
    Nombre   : string;
begin
  Registro := TRegistry.Create;
  try
    Registro.RootKey := HKEY_CLASSES_ROOT;
    if Registro.OpenKeyReadOnly('\.' + Extension) then begin
      Nombre := Registro.ReadString('');
      if Nombre <> '' then
        if Registro.OpenKey('\' + Nombre + '\shell', False) then
          Registro.Access := KEY_READ or KEY_WRITE;
        if Registro.OpenKey('APTprocess', True) then begin
          Registro.WriteString('', CaptionMenu);
          Registro.Access := KEY_READ or KEY_WRITE;
          if Registro.OpenKey('command', True) then Registro.WriteString('', '"' + Comando + '" "%1"');
        end;
    end else Raise Exception.create('Lo siento, la extension no es conocida por Windows');
  finally
    Registro.Free;
  end;
end;

Nota: debes incluir en el uses de tu aplicacion la clase Registry

Espero te sirva,

Saludos

m@kio 05-12-2005 22:30:12

Gracias
 
Lo voy a checar y haber si lo puedo modificar, lo que deseo es meter el item en el menu cuando das click derecho en el escritorio donde vienen las propiedades, organizar iconos y esas cosas, deseo meterlo en ese menu, pero voy checarlo y ver si lo puedo modificar.

Gracias x tu ayuda, si se te ocurre algo de lo que te menciono te agradeceria que me ayudaras nuevamente.


La franja horaria es GMT +2. Ahora son las 14:34:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi