integer li_FileNum,ret,loops,ilong filelenblob pic,bstring txtname,namedstring defext = BMPstring filter = bitmap files(*.bmp),*.bmp,jpg files(*.jpg),*.jpg//打开选择文件对话框ret = GetFileOpenName(Open Pi

在Window的Resize事件中加入://申请系统环境变量environment lenvlong ll_width,ll_height//取得系统环境信息if getenvironment(lenv) = -1 then//   messagebox(错误,获取屏幕信息出错！)else //取得当前屏幕的尺寸，并调整窗口位置，使之居中 ll_height = PixelsToUnits