在XP环境下编译的程序使用正常，但在win7下没法使用，怎么改？
*--开发系统主程序CLEAR ALL
CLOSE DATAB ALL
LOCAL LCSYS16, LCPROGRAM
PUBLIC KFPATH ,PPATH
SET SYSMENU OFF
SET CENTURY ON
SET EXACT ON
APPLICATION.VISIBLE = .F.
********************************
DECLARE INTEGER GetSystemMetrics IN win32api AS Get_sysc INTEGER
X = GET_SYSC(0)
Y = GET_SYSC(1)
IF X <> 1024 .OR. Y <> 768
IF MESSAGEBOX('本程序运行的最佳显示分辨率为1024*768,' + CHR(13) + CHR(13) + ;
'您是否决定自动将分辨率更改为1024*768?',292,'提示信息') = ;
6
DECLARE INTEGER Fblz IN 'dll\fBL.dll' INTEGER , INTEGER
X = 1024
Y = 768
XX = FBLZ(X,Y)
CLEAR DLLS
ENDIF
ENDIF
*********************************
LCSYS16 = SYS(16) &&&&&程序所在目录包括程序名
LCPROGRAM = SUBSTR(LCSYS16, AT(":", LCSYS16) - 1)
KFPATH=LEFT(LCPROGRAM, RAT("\", LCPROGRAM))
PPATH=LEFT(LCPROGRAM, RAT("\", LCPROGRAM)-1)
CD LEFT(LCPROGRAM, RAT("\", LCPROGRAM)) &&&&&
SET DEFAULT TO LEFT(LCPROGRAM, RAT("\", LCPROGRAM))
set path to REPORT,bin,dtdbf,dbf,bmp,jtsjk
[此贴子已经被作者于2019-2-14 09:08编辑过]
