在.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