VB 版 (精华区)

发信人: alias (白桦林), 信区: VB
标  题: Win95系统API函数大揭秘(4)
发信站: 哈工大紫丁香 (Wed Jul 26 10:55:27 2000), 转信

发信人: yucheng (Bingo), 信区: VisualBasic       
发信站: BBS 水木清华站 (Fri Feb 25 17:24:47 2000)

调用“关于”窗口
在“帮助”菜单选择“关于ＸＸＸ”会弹出标准“关于”窗口，利用ShellAbout函数不
但可以调用
标准“关于”窗口，还可以随意更改其中内容呢！
ShellAbout声明如下：
HWnd设置窗口句柄，szApp设置窗口的“Caption”， szOtherStuff 在“版权所有”和
“使用权”
之间的空白处增加额外说明。
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (B
yVal hWnd As Long,
ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As
 Long
Private Sub Form_Load()
Call ShellAbout(hWnd, "何发武天使工作室！", "调用标准的关于窗口" & vbCrLf & 
"上帝与你同在！
阿弥陀佛！", 0)
End Sub
    你还可以通过对注册表信息“动手术”来改变系统的“版权信息”运行REGEDIT，按
照如下路径：
HKEY_LOCAL_MACHINE →SOFTWARE → Microsoft→Windows→ CurrentVersion →Versi
on，就会找到
你计算机中“关于”版本的通用设置，你可以把Version的内容改为你心仪的设置，如“
XXX工作室”等。


--
有人说我捂着脸的时候特象周润发，你信不信？
    Flying                            Fox          
   Flying                       Fox                 
     Flying                  Fox              
        Flying            Fox                   
           Flying      Fox                      

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: mig.bbs@smth.org]