如何複製檔案 |
|
答題得分者是：banson1716
|
|
wenberg
一般會員   發表：6 回覆：15 積分：9 註冊：2002-12-26 發送簡訊給我 |
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
LYW
一般會員 發表：9 回覆：32 積分：8 註冊：2002-03-08 發送簡訊給我 |
引言: 如何複製檔案 我也是找了一個禮拜，找不到如何來COPY檔案。 不過我的目的只是要把一個檔案從一個目錄搬到另外一個目錄之下。
補充一下：
附上這兩function的原式，供參考!!
=================================
BOOL CopyFile( LPCTSTR lpExistingFileName, // pointer to name of an existing file
LPCTSTR lpNewFileName, // pointer to filename to copy to
BOOL bFailIfExists // flag for operation if file exists
);
BOOL MoveFile( LPCTSTR lpExistingFileName, // address of name of the existing file
LPCTSTR lpNewFileName // address of new name for the file
);
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
api 你可能有無懂不如何應用吧? 舉例有二 一 範例 CopyFile 但注意d:\AAA\須要有此目錄 例如:
用法: ^^^^^
procedure TForm1.Button1Click(Sender: TObject);
var
sFromFileName, sToFileName: AnsiString;
begin
sFromFileName := 'c:\Cedit.ini'; //來源檔
sToFileName := 'c:\AAA\Cedit.ini'; //目的檔
if Windows.CopyFile(pchar(sFromFileName), pchar(sToFileName), False) then
ShowMessage('檔案複製完成')
else
ShowMessage('發生錯誤: ' IntToStr(GetLastError));
end;
--------------------------------------------------------
二 範例
其次, 應用 TFileStream 來作也是可以的
function StreamCopyFile(const sInFileName, sOutFileName: string): boolean;
var
InStream, OutStream: TFileStream;
begin
Result := False;
InStream := TFileStream.Create(sInFileName,
fmOpenRead or fmShareDenyWrite);
try
OutStream := TFileStream.Create(sOutFileName,
fmCreate or fmOpenWrite);
try
OutStream.CopyFrom(InStream, 0);
finally
OutStream.Free;
end;
finally
InStream.Free;
end;
Result := True;
end; StreamCopyFile 用法:
procedure TForm1.Button2Click(Sender: TObject);
begin
if StreamCopyFile('c:Ce1.ful','c:\AAA\Ce11.ful') then
// ^^^^^^來源檔 ^^^^^^^^^目的檔(可更改檔名.ful)
ShowMessage('檔案複製完成')
else
ShowMessage('發生錯誤: ' IntToStr(GetLastError));
end;
=====其他 api 自己揣模
|
發表時間：2003-01-01 11:11:11
IP:61.223.xxx.xxx 未訂閱
系統時間：2024-05-12 10:56:25
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |