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

Question

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

Answer 1

你的Timer事件里是不是这样写的？？Timer.Enabled := False;
  .....
  处理过程
  .....
Timer.Enabled := True;如果不是话，很有可能出问题 ^^!

Answer 2

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