xtpath = SYS(5)+SYS(2003)+"\"
local l_dll
l_dll = xtpath+"ykyf.dll"
if not FILE(l_dll)
MESSAGEBOX("缺少文件,系统不能运行！",16,"提示")
cancel
endif
public jqm, zcm
local a,b,retval,tempjqm
declare integer DiskID32 in (l_dll) string @, string @
a = REPLICATE(CHR(0),31)
b = REPLICATE(CHR(0),31)
retval = diskid32(@a,@b)
一个加壳的VFP程序，搞了几天没法脱，大侠们有空帮看一看。需要VFP8运行库
