【vfp开源代码栏目提醒】:网学会员vfp开源代码为您提供About.prg参考,解决您在About.prg学习中工作中的难题,参考学习。
*——声明本地变量
LOCAL hwnd,szApp,szOtherStuff,hIcon,lpsz
*——定义常量
#DEFINE IMAGE_ICON 1
#DEFINE LR_LOADFROMFILE 0x0010
*——声明API函数
DECLARE Long GetActiveWindow IN Win32API
DECLARE Integer ShellAbout IN Shell32;
Integer hwnd,;
String szApp,;
String szOtherStuff,;
Integer hIcon
*——声明常量
DECLARE Long LoadImage IN User32 ;
Long hInst,;
String lpsz,;
Long un1,;
Long n1,;
Long n2,;
Long un2
*——获取当前窗口句柄
hwnd=GetActiveWindow()
*——定义要载入的图标
lpsz="icon.ico"
*——载入图标
hIcon=LoadImage(0,lpsz,IMAGE_ICON,0,0,LR_LOADFROMFILE)
IF hIcon=0
=MESSAGEBOX("LoadImage函数执行错误!")
RETURN
ENDIF
*——定义
程序名称
szApp="关于#超市进销存
管理系统"
szOtherStuff="
系统版本: 1.0"+CHR(13)+"
版权所有: 陈林"
*——显示“关于”对话框
nResult=ShellAbout(hwnd,szApp,szOtherStuff,hIcon)
IF nResult=0
=MESSAGEBOX("无法打开关于对话框")
ENDIF