同一段代码在不同地方执行，结果不一样，很简单的代码，有兴趣的近来看看

[hnxrm]

dd:=extractfilepath(application.ExeName)+datetostr(now())+'.dbf';
dd1:=dd+'.bak';
if renamefile(dd,dd1)=true then flag:=false else application.MessageBox('失败','重新启动程序');
以上这段代码，在CREAT事件里可以运行正常，可以更改文件名
但是放在一个TIMER事件里，却不能更改文件名
在TIMER事件里还有些数据库操作

[CDSoftwareWj]

你的Timer事件里是不是这样写的？？

Timer.Enabled := False;
.....
处理过程
.....
Timer.Enabled := True;

如果不是话，很有可能出问题 ^^!

[diruser]

楼上说的有道理

[wrwr8111]

同意CDSoftwareWj(95927) 的

[票票飞扬]

dd:=extractfilepath(application.ExeName)+datetostr(now())+'.dbf';
文件名不确定，判断是否存在。