程序信息框标题栏改图标

给程序信息框标题栏改图标例子。
.判断循环首 (真)
hwnd ＝ FindWindow (“#32770”, “看我怎么改图标”)
.如果真 (hwnd ≠ 0)
SendMessage (hwnd, #WM_SETICON, #ICON_SMALL, hIcon) ' 设置标题栏上的图标
跳出循环 ()

.如果真结束
WaitForSingleObject (-1, 2)
.判断循环尾 ()