Go语言中如何为user32.dll的MessageBox添加可点击链接

标准Windows MessageBox并不原生支持可点击超链接，要实现该功能，需通过自定义对话框或扩展消息框的消息处理逻辑完成，以下是两种可行方案：

方案一：使用自定义对话框（推荐） #

通过创建包含原生超链接控件的自定义对话框，能更灵活地控制链接样式与行为。

实现代码 #

package main

import (
	"syscall"
	"unsafe"
)

var (
	user32            = syscall.NewLazyDLL("user32.dll")
	kernel32          = syscall.NewLazyDLL("kernel32.dll")
	shell32           = syscall.NewLazyDLL("shell32.dll")
	createDialogW     = user32.NewProc("CreateDialogParamW")
	endDialog         = user32.NewProc("EndDialog")
	getMessageW       = user32.NewProc("GetMessageW")
	translateMessage  = user32.NewProc("TranslateMessage")
	dispatchMessageW  = user32.NewProc("DispatchMessageW")
	shellExecuteW     = shell32.NewProc("ShellExecuteW")
	getModuleHandleW  = kernel32.NewProc("GetModuleHandleW")
)

const (
	IDC_HYPERLINK = 1001
	WM_COMMAND    = 0x0111
	BN_CLICKED    = 0
	SW_SHOW       = 5
)

// DialogProc 对话框消息处理回调
func DialogProc(hwnd syscall.Handle, msg uint32, wparam, lparam uintptr) uintptr {
	switch msg {
	case WM_COMMAND:
		ctrlID := uint32(wparam) & 0xFFFF
		if ctrlID == IDC_HYPERLINK && uint32(wparam>>16) == BN_CLICKED {
			// 点击链接时打开目标地址
			url, _ := syscall.UTF16PtrFromString("https://example.com")
			shellExecuteW.Call(0, uintptr(unsafe.Pointer(syscall.StringToUTF16Ptr("open"))), uintptr(unsafe.Pointer(url)), 0, 0, SW_SHOW)
		}
	case syscall.WM_CLOSE:
		endDialog.Call(hwnd, 0)
		return 1
	}
	return 0
}

func main() {
	// 获取当前模块句柄
	hModule, _, _ := getModuleHandleW.Call(0)

	// 内存中定义对话框模板：包含静态提示文本与SysLink超链接控件
	dialogTemplate := []uint16{
		0x0010, 0x0000, // 对话框样式：WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
		0x0000, 0x0000, // 扩展样式
		0x0002, 0x0000, // 控件数量
		0x0018, 0x0018, // 对话框起始坐标
		0x0150, 0x0080, // 对话框宽高
		0x0000, 0x0000, // 无菜单
		0x0000, 0x0000, // 自定义窗口类
		0x0000, // 对话框标题（可自行修改）
		// 静态提示文本控件
		0x0000, 0x0000, // 样式：WS_CHILD | WS_VISIBLE | SS_LEFT
		0x0020, 0x0020, // 控件坐标
		0x00E0, 0x0020, // 控件宽高
		0x0000, 0x0000, // 控件ID
		0x0000, // 类名：static
		0x0000, // 提示文本："欢迎访问我们的网站："
		// SysLink超链接控件
		0x5000, 0x0000, // 样式：WS_CHILD | WS_VISIBLE | SS_NOTIFY | WS_TABSTOP
		0x0020, 0x0050, // 控件坐标
		0x00E0, 0x0020, // 控件宽高
		IDC_HYPERLINK, 0x0000, // 控件ID
		0x0000, // 类名：SysLink
		0x0000, // 链接文本："<a href=\"https://example.com\">Example Website</a>"
	}

	// 创建对话框
	hwnd, _, _ := createDialogW.Call(
		hModule,
		uintptr(unsafe.Pointer(&dialogTemplate[0])),
		0,
		syscall.NewCallback(DialogProc),
		0,
	)

	// 消息循环维持对话框运行
	var msg syscall.MSG
	for {
		ret, _, _ := getMessageW.Call(uintptr(unsafe.Pointer(&msg)), 0, 0, 0)
		if ret == 0 {
			break
		}
		translateMessage.Call(uintptr(unsafe.Pointer(&msg)))
		dispatchMessageW.Call(uintptr(unsafe.Pointer(&msg)))
	}
}

代码说明 #

• 利用CreateDialogParamW创建自定义对话框，通过内存模板定义SysLink原生超链接控件。
• 在DialogProc回调中处理WM_COMMAND消息，捕获链接点击事件后调用ShellExecuteW打开目标URL。
• 通过标准消息循环维持对话框的正常运行。

方案二：扩展标准MessageBox #

通过设置全局消息钩子拦截MessageBox的创建与交互消息，识别并处理链接点击，这种方法兼容性较差且易影响其他进程，仅作参考：

核心思路 #

1. 使用SetWindowsHookEx设置全局钩子，捕获MessageBox窗口创建事件。
2. 在钩子回调中找到MessageBox内的静态文本控件，修改其样式以支持链接识别。
3. 拦截鼠标点击事件，解析文本中的链接格式（如http://前缀），调用ShellExecute打开目标地址。

注意事项 #

• 全局钩子会影响系统内所有进程的MessageBox行为，需谨慎使用。
• 需要自行实现链接文本的解析逻辑，适配不同格式的链接内容。

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