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="关于#Eton Group 仓库管理系统"
szOtherStuff="系统版本: 1.0"+CHR(13)+"版权所有: IT部"
*——显示“关于”对话框
nResult=ShellAbout(hwnd,szApp,szOtherStuff,hIcon)
IF nResult=0
    =MESSAGEBOX("无法打开关于对话框")
ENDIF