VB 版 (精华区)

发信人: zxfsnow (最近睡眠太少), 信区: VB
标  题: 利用api调出标准About窗口 
发信站: 哈工大紫丁香 (2000年06月12日11:08:20 星期一), 转信

发信人: Flyin (如果你见到我，一定不是我), 信区: VisualBasic
标  题: 利用api调出标准About窗口
发信站: 华南网木棉站 (Sat Jan  1 23:09:28 2000), 站内信件

VB调用API函数技巧--借用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，"演示程序"，"版权所有" & Chr$(13) &
Chr$(10) & "序列号：123456"，Icon)
--


   艾伦!结婚吧，不要吸毒！

※ 来源:．华南网木棉站 bbs.gznet.edu.cn．[FROM: 202.38.242.18]
-- 
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.237]