如何在DELPHI中實現普通文件的拷貝? (2001年5月13日) 

本站更新  分類:文件   作者:tomm  推薦:   閱讀次數:320  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

procedure TForm1.btnCopyClick(Sender: TObject);
var
sfile,dfile : String;
begin
sfile :='a.txt';//被copy的文件
dfile :='b.txt';//copy后的文件名
CopyFile(pchar(sfile),pchar(dfile),false);
第三個參數false為如果b.txt已經存在，則覆蓋；如果為true,則不進行操作

函數詳細信息查閱help文件