*——聲明本地變量
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