各位大牛,别沉默了,伸伸手吧

解决方案 »

  1.   

    提供一条思路:
    在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才行,不能放到压缩文件中。我也正在找更好的办法,仅供参考。