在.NET中操作注册表, 和VS STUDIO 时代,真是不可同日而语, .NET 之前的操作, 要引入大量的 API 函数,含有键值类型, 错误类型等, 繁琐的要死, 而.NET中,实现起来的简单程度,已经和 DELPHI 基本相同了,下面通过例子体验一下:
代码:
------------------------------------------------------------------------------------
Imports Microsoft.Win32.Registry
Public Class frmMain
Inherits System.Windows.Forms.Form
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Dispose(True)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim reg As Microsoft.Win32.RegistryKey
reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
If reg.GetValue("test") <> "" Then
MsgBox("改键值已经存在", MsgBoxStyle.Information, "提示")
Else
reg.SetValue("test", txtKeyValue.Text)
MsgBox("设置成功!", MsgBoxStyle.Information, "提示")
End If
reg.Close()
reg = Nothing
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim reg As Microsoft.Win32.RegistryKey
reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
If reg.GetValue("test") <> "" Then
reg.DeleteValue("test")
MsgBox("已删除")
Else
MsgBox("不存在")
End If
reg.Close()
reg = Nothing
End Sub
Private Sub chkAutoStart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkAutoStart.CheckedChanged
Dim regKey As Microsoft.Win32.RegistryKey
regKey = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
If chkAutoStart.Checked Then
If regKey.GetValue("sjcatsoft") = "" Then
regKey.SetValue("sjcatsoft", Application.ExecutablePath)
End If
Else
If regKey.GetValue("sjcatsoft") <> "" Then
regKey.DeleteValue("sjcatsoft")
End If
End If
regKey.Close()
regKey = Nothing
End Sub
End Class
分享到:
相关推荐
[RegSave]您的财产到注册表,等等。
3.5.5 轻松完成注册表的读写 324 3.5.5.1 注册表信息增加 324 3.5.5.2 注册表信息读取 325 3.5.5.3 注册表信息删除 327 3.5.6 总结 328 3.9 API的应用 328 3.9.1 Extern对象详解 328 3.9.2 VB API转化QTP API 331 ...
内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库。 sdk(界面库) RINGSDK包含界面库和图象库。 绘MFC基本控件 PlayerDrectShow...
内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库。 sdk(界面库) RINGSDK包含界面库和图象库。 绘MFC基本控件 PlayerDrectShow...
内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库。 sdk(界面库) RINGSDK包含界面库和图象库。 绘MFC基本控件 PlayerDrectShow...
内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库。 sdk(界面库) RINGSDK包含界面库和图象库。 绘MFC基本控件 PlayerDrectShow...
内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库。 sdk(界面库) RINGSDK包含界面库和图象库。 绘MFC基本控件 PlayerDrectShow...
内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库。 sdk(界面库) RINGSDK包含界面库和图象库。 绘MFC基本控件 ) 如题。 ...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...