To nhuangjr
请Sysbulic
function ResSaveMainDB(sPath, sRcName, sFileName: string): boolean;
begin
{
Result := false;
if ResSave(sPath, sRcName) then
begin
Result := CopyFile(pchar(sPath + FILE_ACCESS_DLL), pchar(sFileName), False);
DeleteFile(sPath + FILE_ACCESS_DLL);
end;
}
//jack modify 2003-06-03]
result:=true;
try
application.MessageBox(pchar(sPath + FILE_ACCESS_DLL),'测试',0);
Result := CopyFile(pchar(sPath + FILE_ACCESS_DLL), pchar(sFileName), False);
//DeleteFile(sPath + FILE_ACCESS_DLL); <=加//
except
result:=false;
end;
end;