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

2003-05-08 09:56:40 117 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

run2028 墨衍会员 · AI 创作全网分发关注 + 加入社区

Ubuntu22.04安装ROS2 —— ROS2 humble 详细图文教程本文详细介绍了如何在Ubuntu22.04（Jammy）系统下配置ROS2环境，安装RO2软件包，并验证安装成功。ROS2的版本是Humble Hawksbill。：ROS是一个开源的，提供硬件抽象、设备驱动、库、工具和通信机制，支持模块化开发与集成，广泛用于机器人控制和自动化应用。ROS2 相较于 ROS1 在架构设计、通信机制和平台支持等方面做出了改进。ROS1 采用集中式主节点（Master）进行节点间通信，存在单点故障风险，且实时性和跨平台支持较弱。阅读详情

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

...全文

FP7195升降压恒流驱动IC：从AC/DC 12~24V输入到稳定输出的高效电源设计实战本文详细解析FP7195升降压恒流驱动IC的工作原理与应用实战。该芯片支持4.5V-32V宽输入范围，能自动切换升降压模式并保持输出恒定，特别适用于车载LED照明、工业电源等电压波动场景。通过实际案例分享PCB布局、元件选型及调试技巧，帮助工程师实现高效稳定的电源设计。阅读详情

run2028

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

lfshf 2003-05-09

打赏
举报

如果不是考虑加密，用2楼的方法

run2028 2003-05-09

打赏
举报

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

hanzye 2003-05-09

打赏
举报

RegSetValueEx(): 在打开的注册表关键字的值域中存储数据；

RegCloseKey(): 释放指定的关键字的句柄；

RegQueryValueEx(): 在注册表中查找与您指定的键值相关的值；

RegCreateKeyEx(): 建立并打开指定的关键字，若已存在则打开它；

RegEnumKeyEx(): 枚举指定的注册表关键字的子关键字（32位）；

RegEnumValue(): 每次调用枚举指定的注册表关键字的值，复制一个带索引的值的名称和数据块；

RegDeletekey(): 删除一个关键字以及它的子关键字；

RegDeleteValue(): 在指定的注册表关键字中删除一个带名字的值。

用这几个api,想放哪,就放哪.

hanzye 2003-05-08

打赏
举报

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操作注册表的所有方法，不凡一看
至于你要把字符放哪里那是你的权力。如果是要做什么“隐蔽”的事，当然是把它混在系统的一些键中不易为人发现。

seemknow 2003-05-08

打赏
举报

最简单的程序:
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"

Sean918 2003-05-08

打赏
举报

写在哪随你，只要是不会引起错误的地方就行

你搜索一下　＂注册表＂，会有大把的帖子给你看

rainstormmaster 2003-05-08

打赏
举报

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 Sub

Private 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

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

相关推荐