我的代码如下，在XP下运行正常，但是在VISTA下面就有问题，程序执行后没有反映，我用的是D2009

[code delphi]
procedure TForm1.N7Click(Sender: TObject);
var text:string;
begin
absdatabase1.Connected :=false;
abstable1.open;
abstable1.edit;
if selectdirectory('请选择备份数据库的存放目录:','/',text) then
begin
copyfile(pchar(ExtractFilePath(Application.ExeName) DataBaseFileName),
pchar(text '\' DataBaseFileName ),false );
absdatabase1.connected:=true;
end;
end;
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

我測試OK押, 我用Vista, Delphi2009


[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
begin
Copyfile(pchar('D:\123.txt'),pchar('D:\456.txt'),true);
end;
[/code]

回楼上的，我用了GETLASTERROR命令，
提示为“另一程序已锁定文件的一部分，程序无法访问。”
这个何解啊？是不是那里的代码错了？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

我的这段代码在XP下运行正确，就是在VISTA下面有问题，难道DELPHI.KTOP里面真的就没有高手了吗？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

Programming without debugging is NOTHING
===================引 用 zhouying82 文 章===================
我的这段代码在XP下运行正确，就是在VISTA下面有问题，难道DELPHI.KTOP里面真的就没有高手了吗？

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

自认为是高手的。会帮我解决这个问题吗？

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

樓上有人測過單純CopyFile 是ok 的, 你也測到Error是檔案被其他程序佔用, 
那是不是你檔案有人在用呢?
我猜(我沒用過vista)
看起來你那個是db table file 所以只要connect 就有可能被佔用, 也許 xp,vista,2003 等的db driver 在連線時開啟的佔用模式
有差異, 基本上你使用copyfile 前應先結束所有可能用到那些檔案的運作才能避免無謂的錯誤

------
額有朝天骨,眼中有靈光

回楼上，但是我如果不用TABLE1.OPEN这条语句，在VISTA下就根本不能运行了，提示"DATASET  IS CLOSE"

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

我想 檔案複製 和資料連結 應該是兩個無相關的獨立事件吧,我相信程式順序整理一下應該就能排除你的問題

===================引 用 zhouying82 文 章===================
回楼上，但是我如果不用TABLE1.OPEN这条语句，在VISTA下就根本不能运行了，提示"DATASET IS CLOSE"

------
額有朝天骨,眼中有靈光

"程序执行后没有反映"
請問是否連"selectdirectory"這函數也沒有反應呢?如果是的話,表示這並非copyfile的問題

另外,你也可以使用 break point 中斷點 來查找步驟的執行
你可以每一個步驟都測試一下