VB 版 (精华区)

发信人: Mice (开心果), 信区: VisualBasic
标  题: [转载] [P]VB调用API函数技巧--借用Windows系统的标准ABOUT窗口 
发信站: 紫 丁 香 (Mon Nov 16 19:12:18 1998), 转信

【 以下文字转载自 VisualProgram 讨论区 】
【 原文由 Mice 所发表 】
发信人: xiaobo (激情蕴于心中), 信区: Programming 
标　题: VB调用API函数技巧--借用Windows系统的标准ABOUT窗口 
发信站: BBS 水木清华站 (Sun Oct  5 11:01: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 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: 166.111.26.20] 



--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 老巴夺转信机器人程序]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: fengyun.hit.edu.]
--
※ 转载:．紫 丁 香 bbs.hit.edu.cn．[FROM: cad4.hit.edu.cn]