关于文件复制：copyfile路径问题!

Question

下面这行代码能实现我的需求，但是只能手工写路径 ：只能从G://1\database\..，现在如果我的database 文件夹发生了变化，比如放在了别的盘里(E或者F)，那么这行代码不是实现不了作用了吗，试问应该怎么改？？？
copyfile(pchar('G://1\database\TB_CLASS.db'),pchar(dirctory+'\TB_CLASS.db'),false);我改成下面这样，但不起作用...
 copyfile(pchar(extractFileName(Application.ExeName)+'TB_CLASS.db'),pchar(dirctory+'\TB_CLASS.db'),false);在线等，谢谢!!也就是说，文件夹的位置发生改变，上面的代码要仍然可以实现复制功能...

Answer 1

你试试把他们写出来
sPath:string ;
pchar f;
sPath = extractFileName(Application.ExeName)+'TB_CLASS.db';
f= pchar(sPath );然后再调用

Answer 2

应该是ExtractFilePath(Application.ExeName)才对吧。
这里应该取的是路径而不是文件名吧。