<address id="xpjh9"><listing id="xpjh9"><meter id="xpjh9"></meter></listing></address>

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
<noframes id="xpjh9">
<noframes id="xpjh9">

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
    <form id="xpjh9"></form><address id="xpjh9"><listing id="xpjh9"><menuitem id="xpjh9"></menuitem></listing></address>

      <noframes id="xpjh9">
      VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
      SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
      當前位置:
      首頁 > 編程開發 > vb >
      • vb教程之在VB編程中使用系統“注冊表” (加入

      • 2017-09-21 16:19 來源:未知
       文/朱文剛

        用VB編程,在打開一個主鍵時,常常會用RegOpenKey,比如要鎖定注冊表就寫成:

        Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpen

        KeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkRes 
      ult As Long) As Long

        ...... 

        Dim Hkey,r As Long

        r=RegOpenKey(HKCU,LockREG,Hkey)

        ........

        但是,有沒有想過有的用戶注冊表中沒有System主鍵,就無法打開這個子鍵,也就無法實現這個功能。解決的辦法是用另一個API,RegCreateKey這個API有主鍵則打開,如果沒有就自動創建并打開。所以上面的代碼應寫成

        Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

        ......

        r=RegCreateKey(HKCU,LockREG,Hkey)

        ......

        這樣就不會出錯了。放棄RegOpenKey吧,把用RegOpenKey的地方全部改成RegCreateKey,因為參數相同,所以不會出錯。這樣你的軟件才能在所有用戶的機器上通行無阻。(文中的HKCU = HKEY_CURRENT_USER;LockREG = Software\Microsoft\Windows\CurrentVerson\Policies\System)
      相關教程
      江苏快3 攀枝花 | 仙桃 | 海东 | 江西南昌 | 宁夏银川 | 延安 | 佳木斯 | 高雄 | 桓台 | 西双版纳 | 三亚 | 甘南 | 鸡西 | 阿拉善盟 | 晋中 | 海东 | 高密 | 广西南宁 | 昭通 | 邹平 | 儋州 | 任丘 | 酒泉 | 九江 | 巴彦淖尔市 | 克孜勒苏 | 武威 | 松原 | 日喀则 | 广安 | 汉川 | 连云港 | 泗阳 | 海拉尔 | 乐平 | 儋州 | 昌吉 | 武夷山 | 喀什 | 衢州 | 鞍山 | 吐鲁番 | 泰州 | 江苏苏州 | 随州 | 金华 | 本溪 | 乳山 | 苍南 | 聊城 | 肇庆 | 南平 | 南京 | 海东 | 中卫 | 凉山 | 余姚 | 邳州 | 鄂州 | 厦门 | 图木舒克 | 瓦房店 | 桐乡 | 枣阳 | 渭南 | 巴音郭楞 | 灌云 | 辽宁沈阳 | 宁德 | 日喀则 | 渭南 | 雄安新区 | 大连 | 汕头 | 防城港 | 临海 | 景德镇 | 鹤壁 | 安顺 | 白城 | 甘孜 | 锡林郭勒 | 朔州 | 海门 | 红河 | 宜昌 | 乐平 | 上饶 | 遵义 | 衢州 | 肥城 | 本溪 | 玉林 | 德宏 | 新余 | 梅州 | 博尔塔拉 | 邹平 | 天长 | 永州 | 黑河 | 长垣 | 朝阳 | 文昌 | 萍乡 | 铜仁 | 巢湖 | 克拉玛依 | 海北 | 珠海 | 宜宾 | 醴陵 | 文山 |