精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标  题: Shell.dll(转载)
发信站: 哈工大紫丁香 (2000年09月07日18:42:00 星期四), 转信

【以下文字转载自 cnTemp 讨论区】
【原文由 bloom 所发表】
名称:  ShellAbout
声明:
Public Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (B
yVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVa
l hIcon As Long) As Long

参数:
1.     hwnd:   父窗口句柄,可为空值
2.     szApp:  关于对话框标题,和第一行内容.用#号表示换行.
3.     szOtherStuff: 在版本和版权声明之后的内容.
4.     hIcon:  对话框的图标,若为空,显示Windows图标.
例子:

发信人: xiaobo (激情蕴于心中), 信区: Visual
标  题: VB调用API函数技巧--借用Windows系统的标准ABOUT窗口 (转载)
发信站: BBS 水木清华站 (Sun Oct  5 11:22:32 1997)

转自《中国计算机报》[一九九七年十月六日总第678期] 第128版

VB调用API函数技巧--借用Windows系统的标准ABOUT窗口

　　ABOUT窗口是应用程序向用户传达自身一些基本信息
的最佳方式。Windows系统的许多软件，如程序管理器、文
件管理器、书写器等，都带有一个风格一致的ABOUT窗口
。在这些软件中，只要选择“帮助”菜单命令“关于XXX．
．．”，就会弹出这个标准ABOUT窗口，其中显示有关Win
dows及相应软件的版本、工作方式和版权等信息。在VB应
用程序中，可以通过调用API函数ShellAbout，方便地借
用这个标准ABOUT窗口，并将自己的基本信息加入其中。

　　首先，在module文件中加入下列声明语句：

　　Declare FunctionExtractIcon% 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，"演示程序"，_
"版权所有［c］1996－1997吴斌" & Chr$(13) & Chr$(10) & "序列号：123456"，Icon)

　　……

--
  江声浩荡，自屋后上升......
                            --《约翰.可利斯朵夫》

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: blo0m.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.247.254]

VB 版 (精华区)