DELPHI 如何在桌面添加右键菜单


本文整理自网络,侵删。

 需要在注册表中添加键值

在桌面右键菜单添加一个运行程序

需要在下面注册表路径中新建项,在该项右边的默认数值中填写程序的名字,再在项里面新建一个command项,右边的默认数值填入该程序路径。手动设置就这么简单。

HKEY_CLASSES_ROOT\directory\background\shell



下面列出用DELPHI实现的简单代码



新建一个添加和删除的按钮,在前面USES Registry

添加一个aaa.exe:

 

procedure TForm1.BtnMenuClick(Sender: TObject);

var

    Reg : TRegistry;

    GetSource : String;

begin

    GetSource := Application.ExeName;

    try

        Reg := TRegistry.Create;

        with Reg do

        begin

        RootKey := HKEY_CLASSES_ROOT;

        OpenKey('Directory\Background\shell\aaa', True);

        Writestring('', '打开aaa程序');

        OpenKey('Command', true);

        Writestring('', GetSource);

        Free;

        ShowMessage( '注册表导入成功!');

        end;

    except

        MessageDlg( '注册表导入失败!',mtError, [mbOK], 0 );

    end;

end;

 

 

从注册表中删除

procedure TForm1.BtnDelClick(Sender: TObject);

var

    Reg : TRegistry;

begin

 

    try

        Reg := TRegistry.Create;

        with Reg do

        begin

        RootKey := HKEY_CLASSES_ROOT;

        DeleteKey('Directory\Background\shell\aaa'); //即使执行多次也不会对注册表造成影响

 

        Free;

        ShowMessage( '注册表删除成功!');

        end;

    except

        MessageDlg( '注册表删除失败!',mtError, [mbOK], 0 );

    end;

end;

 

相关阅读 >>

Delphi时间格式错误

Delphi setfileattributes 功能:修改文件属性

Delphi 遍历硬盘所有文件目录

Delphi计算md5

Delphi xe 编译开关-一套代码不同平台编译

Delphi char string

Delphi 验证文件签名

Delphi firedac内存表

Delphi调节图片亮度、色彩和饱和度的代码

Delphi 判断文件类型函数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...