提供一条思路: 在ProcessAfterDataMove中加入: function ProcessAfterDataMove() STRING svResult; NUMBER nvResult,nItem;begin VarSave(SRCTARGETDIR); SRCDIR="a:\\"; GetSystemInfo(OS,nvResult,svResult); if (nvResult==IS_WINDOWSNT) then TARGETDIR=WINSYSDIR; CopyFile("source.txt","source.txt"); endif; if (nvResult==IS_WINDOWS95) then TARGETDIR=WINDIR; CopyFile("source.txt","source.txt"); endif; VarRestore(SRCTARGETDIR); return 0; end; 不过这个方法限制比较大,在a:\必须有source.txt才行,不能放到压缩文件中。我也正在找更好的办法,仅供参考。
在ProcessAfterDataMove中加入:
function ProcessAfterDataMove()
STRING svResult;
NUMBER nvResult,nItem;begin
VarSave(SRCTARGETDIR);
SRCDIR="a:\\";
GetSystemInfo(OS,nvResult,svResult);
if (nvResult==IS_WINDOWSNT) then
TARGETDIR=WINSYSDIR;
CopyFile("source.txt","source.txt");
endif;
if (nvResult==IS_WINDOWS95) then
TARGETDIR=WINDIR;
CopyFile("source.txt","source.txt");
endif; VarRestore(SRCTARGETDIR);
return 0;
end;
不过这个方法限制比较大,在a:\必须有source.txt才行,不能放到压缩文件中。我也正在找更好的办法,仅供参考。