显示Windows系统的标准ABOUT窗口

ABOUT窗口是应用程序向用户传达自身一些基本信息的最佳方式。Windows系统的
许多软件，如程序管理器、文件管理器、书写器等，都带有一个风格一致的ABOUT
窗口。在这些软件中，只要选择“帮助”菜单命令“关于XXX．．．”，就会弹出
这个标准ABOUT窗口，其中显示有关Windows及相应软件的版本、工作方式和版权等
信息。在VB应用程序中，可以通过调用API函数ShellAbout，方便地借用这个标准
ABOUT窗口，并将自己的基本信息加入其中。
　　首先，在module文件中加入下列声明语句：
　　Declare Function ExtractIcon% Lib "shell.dll" (ByVal hinst%, ByVal
lpszExeName$，ByVal iIcon%)
　　Declare Function GetWindowWord Lib "User"( ByVal hWnd As Integer，
ByVal nIndex As Integer)As Integer
　　Declare Function ShellAbout Lib "shell.dll"(ByVal hWnd As Integer，
ByVal szApp As String，ByVal szOtherStuff As String，ByVal hIcon As
Integer)As Integer
　　Public Const GWL_EXSTYLE=(－20)
　　Public Const GWL_STYLE=(－16)
　　Public Const GWL_WNDPROC=(－4)

Public Const GWW_HINSTANCE=(－6)

　　然后，在调用ABOUT窗口的菜单项的Click事件中加入下列代码：
　Dim Ret As Integer
　　Dim Icon As Integer
　　Dim Inst As Integer
　　Inst=GetWindowWord(Me.hWnd,GWW_HINSTANCE)
　　''从可执行文件中抽取图标
　　Icon=ExtractIcon(Inst,"DEMO.EXE",0)
　　''调用Windows系统标准ABOUT窗口
　　Ret=ShellAbout (Me.hWnd，"1234"，"123" & Chr$(13) & Chr$(10) & "
123456"，Icon)