VB6.0操作注册表

本文将介绍用CreateObject(“wscript.shell”)对象操作注册表

本文操作的注册表目录是HKEY_CLASSES_ROOT\Directory\Background\shell
也就是桌面菜单右键

下面看一下效果图：

其中python 注册表重载文件资源管理器都是我自己添加的，在桌面右键菜单就可以直接打开，十分方便

下面我们来看一下自己动手怎么实现：

在注册表里面是这个样子，这里显示的是名字。

这里看到是ico文件的设置，也就是图标

这里看到的就是点击的时候执行的命令，可以是一个路径，也可以是一条指令。

接下来我们用Vb6.0实现添加注册表的功能

Dim WSH
Set WSH = CreateObject("WSCRIPT.SHELL")
WSH.RegWrite "HKEY_CLASSES_ROOT\Directory\Background\shell\test\test", "test"        '写入注册表

运行完后是这样的：

下面这个代码可以加入python到右键菜单中

Dim WSH
Set WSH = CreateObject("WSCRIPT.SHELL")
WSH.RegWrite "D:\python\python.exe","D:\python\python.exe"

测试效果：

其实挺方便的。
其实还可以做一个界面让用户自己输入自己想要运行的程序，代码如下：

Private Sub Command_openfile1_Click()
CommonDialog_exe.FileName = ""
CommonDialog_exe.Filter = "可执行应用程序(*.exe)|*.exe"
CommonDialog_exe.FilterIndex = 2
CommonDialog_exe.DialogTitle = "选择可执行应用程序(*.exe)"
CommonDialog_exe.ShowOpen
If CommonDialog_exe.FileName = "" Thena = "Nnothing"
ElseText_command.Text = CommonDialog_exe.FileName
End If
End SubPrivate Sub Command_openfile2_Click()
CommonDialog_exe.FileName = ""
CommonDialog_exe.Filter = "应用程序或图标文件(*.exe;*.ico)|*.exe;*.ico）"
CommonDialog_exe.FilterIndex = 2
CommonDialog_exe.DialogTitle = "选择图标(*.ico,*.exe)"
CommonDialog_exe.ShowOpen
If CommonDialog_exe.FileName = "" Thena = "Nnothing"
ElseText_ico.Text = CommonDialog_exe.FileName
End If
End SubPrivate Sub Command_run_Click()
Set WSH = CreateObject("wscript.shell")
reg_name_ico = "HKEY_CLASSES_ROOT\Directory\Background\shell\" + Text_name.Text + "\icon"
If Text_ico.Text = "" ThenWSH.RegWrite reg_name_ico, Text_ico.Textreg_name = "HKEY_CLASSES_ROOT\Directory\Background\shell\" + Text_name.Text + "\command\"
reg_command = Text_command.Text
WSH.RegWrite reg_name, reg_command
MsgBox "添加成功"
End SubPrivate Sub Text_name_Change()
Text1.Text = "HKEY_CLASSES_ROOT\Directory\Background\shell\" + Text_name.Text + "\command\"
End Sub

下面是程序里各个控件名称：

测试：

十分的方便和快捷，点个赞吧，程序和源码如下：

本程序在Windows7系统下测试，Windows10系统注册表好像有变化，但修改的代码不会有变，可自行设计。

https://download.csdn.net/download/qq_28406527/20234916?spm=1001.2014.3001.5503

[源码]VB6.0操作注册表相关推荐

vue-router 源码阅读 - 文件结构与注册机制
文章目录 0. 前备知识 1. 文件结构 2. 入口文件 2.1 rollup 出口与入口 2.2 Vue.use 3. 路由注册 3.1 install 3.2 VueRouter 前端路由是我们前 ...
注册中心 Eureka 源码解析 —— 应用实例注册发现（五）之过期
2019独角兽企业重金招聘Python工程师标准>>> 摘要: 原创出处 http://www.iocoder.cn/Eureka/instance-registry-evict/ ...
delphi 操作注册表详解
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息. 一.创建和释放TRegistry对象 1.创建TRegistry对象.为了操作注册表,要创建一个TRegistr ...
C#操作注册表全攻略
相信每个人对注册表并不陌生,在运行里面输入"regedit"就可以打开注册表编辑器了.这东西对Windows系统来说可是比较重要的,也是病毒常常会光顾的地方,比如病毒和恶意软件常常 ...
.NET操作注册表的封装类
我写的一个在.NET下操作注册表的类. using System; using Microsoft.Win32; using System.Collections; namespace iUNS { ...
在Delphi程序中操作注册表
32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息. 一.创建和释放TRegistry对象 1.创建TRegistry对象.为了操作注册表,要创建一个TRegistry对象: ...
Win64 驱动内核编程-6.内核里操作注册表
内核里操作注册表 RING0 操作注册表和 RING3 的区别也不大,同样是"获得句柄->执行操作->关闭句柄"的模式,同样也只能使用内核 API 不能使用 WIN32 ...
Win 驱动编程 - 内核里操作注册表
一概述 RING0 操作注册表和 RING3 的区别也不大,同样是"获得句柄->执行操作->关闭句柄"的模式,同样也只能使用内核 API 不能使用 WIN32API. ...
删除python的注册表_Python操作注册表详细步骤介绍
Python操作注册表步骤之1．打开注册表对注册表进行操作前,必须打开注册表.在Python中,可以使用以下两个函数:RegOpenKey和RegOpenKeyEx.其函数原型分别如下所示. Reg ...
Atitit.操作注册表树形数据库注册表的历史 java版本类库总结
Atitit.操作注册表树形数据库注册表的历史 java版本类库总结 1. 注册表是树形数据库 1 2. 注册表的由来 1 3. Java 操作注册表 2 3.1. 使用Preferences ...

[源码]VB6.0操作注册表

VB6.0操作注册表

[源码]VB6.0操作注册表相关推荐

最新文章

热门文章