如何在VB6中实现向指定注册表项写入内容的操作？

你需求的是向HKCU\Software\Microsoft\Print\UnifiedPrintDialog路径写入DWORD类型值PreferLegacyPrintDialog=1，以下是两种可行的VB6实现方式：

方法一：使用WScript.Shell直接操作注册表 #

这种方式无需调用外部程序，直接通过COM对象读写注册表，更轻量化且可控：

Dim objShell As Object
On Error Resume Next ' 可选：捕获错误避免程序崩溃
Set objShell = CreateObject("WScript.Shell")

' 写入注册表值：路径、值名、数据、类型
objShell.RegWrite "HKCU\Software\Microsoft\Print\UnifiedPrintDialog\PreferLegacyPrintDialog", 1, "REG_DWORD"

If Err.Number <> 0 Then
    MsgBox "写入注册表失败：" & Err.Description, vbExclamation
Else
    MsgBox "注册表写入成功", vbInformation
End If

Set objShell = Nothing

• 注意：RegWrite方法会自动创建不存在的注册表路径，/f参数的覆盖功能是默认的，无需额外指定
• 建议加上错误处理，避免因权限不足等问题导致程序异常

方法二：调用reg.exe命令（Shell/ShellExecute） #

如果想直接复用你提供的reg命令，可以通过VB6的Shell函数或ShellExecuteAPI执行：

方式1：使用Shell函数 #

Dim cmdArgs As String
Dim exitCode As Long

cmdArgs = "reg.exe add ""HKCU\Software\Microsoft\Print\UnifiedPrintDialog"" /v ""PreferLegacyPrintDialog"" /d 1 /t REG_DWORD /f"

' vbHide参数隐藏命令行窗口
exitCode = Shell(cmdArgs, vbHide)

' 注意：Shell函数不会等待命令执行完成，若需要确认结果需额外处理

方式2：使用ShellExecute API（更灵活，可处理权限等） #

需要先在模块中声明API：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Const SW_HIDE = 0

然后在代码中调用：

Dim result As Long
Dim cmdArgs As String

cmdArgs = "add ""HKCU\Software\Microsoft\Print\UnifiedPrintDialog"" /v ""PreferLegacyPrintDialog"" /d 1 /t REG_DWORD /f"
result = ShellExecute(Me.hwnd, "open", "reg.exe", cmdArgs, vbNullString, SW_HIDE)

' 返回值大于32表示执行成功
If result > 32 Then
    MsgBox "命令执行成功", vbInformation
Else
    MsgBox "命令执行失败", vbExclamation
End If

两种调用外部命令的注意事项 #

• 若系统权限不足，可能需要以管理员身份运行程序
• Shell函数无法直接获取命令执行结果，ShellExecute可通过返回值判断是否启动成功，但无法获取reg命令的具体执行状态（比如是否真的写入成功）

内容的提问来源于stack exchange，提问作者Mike