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