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;

  registrarApliacionMenuContextual('Obtener Hash', Application.ExeName);

Publicado el: 2008-08-21