Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Agregar aplicación al menú contextual de Windows - Delphi
Lenguaje de programación Borland Delphi


Os mostramos el código fuente (source code) en Borland Delphi 6 para agregar la ejecución de una aplicación en el menú contextual de Windows. Cuando un usuario pulse con el botón derecho del ratón sobre un fichero, entre las opciones del menú contextual aparecerá la que nosotros hayamos agregado.


En el Uses del formulario deberemos agregar "Registry", pues utilizaremos esta unidad para escribir en el registro de configuraciones de Windows (regedit). La función que agregará nuestra aplicación al menú contextual:

function registrarApliacionMenuContextual (textoMenuContextual,
    rutaEjecutableParametros : string) : boolean;
var
  reg: TRegistry;
begin
  result := false;
  reg := TRegistry.Create;
  with reg do
  try
    RootKey := HKEY_CLASSES_ROOT;
    if OpenKey('*\shell\' + textoMenuContextual + '\command', True) then
    begin
      WriteString('', rutaEjecutableParametros + ' "%1"') ;
      CloseKey;
      result := true;
    end;
  finally
    Free;
  end;
end;
Ejemplo de uso de la función:
  registrarApliacionMenuContextual('Obtener Hash', Application.ExeName);




Publicado el: 2008-08-21

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+