将一个字符串写入注册表，怎末办，写在注册表何处合适？

Question

将一个字符串写入注册表，怎末办，写在注册表何处合适？怎样读出？给点源码了

Answer 1

RegQueryValueEx读，RegSetValueEx写。或用vb自带的函数SaveSetting和GetSetting。
Private Sub Form_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
End SubPrivate Sub Form_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    SaveSetting App.Title, "Settings", "ViewMode", lvListView.View
End Sub

Answer 2

最简单的程序:
Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 1000) 
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    For i = Forms.Count - 1 To 1 Step -1
        Unload Forms(i)
    Next
End Sub我的APP.Title=SerialDataTrans，写完注册表是
[HKEY_CURRENT_USER\Software\VB and VBA Program Settings\SerialDataTrans\Settings]
"MainLeft"="1095"
"MainTop"="885"
"MainWidth"="8655"
"MainHeight"="7965"

Answer 3

http://www.gbnis.com/read_file.asp?type_id=&id=3654&left=
http://www.gbnis.com/read_file.asp?type_id=&id=2342&left=
这两篇文章几乎阐述了VB操作注册表的所有方法，不凡一看
至于你要把字符放哪里那是你的权力。如果是要做什么“隐蔽”的事，当然是把它混在系统的一些键中不易为人发现。

Answer 4

SaveSetting appname, section, key, setting语句总是写到"HKEY_CURRENT_USER\Software\VB and VBA Program Settings"目录下，怎样可以改变位置？
例如写到"HKEY_CURRENT_USER\Software"目录下

Answer 5

RegSetValueEx(): 在打开的注册表关键字的值域中存储数据；  RegCloseKey(): 释放指定的关键字的句柄；  RegQueryValueEx(): 在注册表中查找与您指定的键值相关的值；  RegCreateKeyEx(): 建立并打开指定的关键字，若已存在则打开它；  RegEnumKeyEx(): 枚举指定的注册表关键字的子关键字（32位）；  RegEnumValue(): 每次调用枚举指定的注册表关键字的值，复制一个带索引的值的名称和数据块；  RegDeletekey(): 删除一个关键字以及它的子关键字；  RegDeleteValue(): 在指定的注册表关键字中删除一个带名字的值。 用这几个api,想放哪,就放哪.