T
txyx
Unregistered / Unconfirmed
GUEST, unregistred user!
help!!!!
刘
刘李子
Unregistered / Unconfirmed
GUEST, unregistred user!
win api:
CopyFile function copies an existing file to a new file.
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
);
CopyFile function copies an existing file to a new file.
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
);
Z
zzWind
Unregistered / Unconfirmed
GUEST, unregistred user!
赞同
Z
zrj
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi中也有一个copyfile,在program files/borland/delphi5/demos/doc/filemanex/fmxutils.pas
把该文件加入你得工程，就可以了copyfile('c:/1.txt',d:/1.txt');
把该文件加入你得工程，就可以了copyfile('c:/1.txt',d:/1.txt');
R
rope
Unregistered / Unconfirmed
GUEST, unregistred user!
可以这样
WinExec('copy a.dat c:/bb',SW_NORMAL);
没问题。[
]
WinExec('copy a.dat c:/bb',SW_NORMAL);
没问题。[
]
T
txyx
Unregistered / Unconfirmed
GUEST, unregistred user!
WinExec的方法好像不行
欢
欢_乐
Unregistered / Unconfirmed
GUEST, unregistred user!
这是一个文件拷贝
var
source,target:tfilestream;
begin
source:=tfilestream.Create(edit1.Text,fmopenread);
try
target:=tfilestream.Create(edit2.Text,fmopenwrite or fmcreate);
try
if target.CopyFrom(source,source.Size)=source.Size then
showmessage('ok');
finally
target.Free;
end;
finally
source.Free;
end;
end;
var
source,target:tfilestream;
begin
source:=tfilestream.Create(edit1.Text,fmopenread);
try
target:=tfilestream.Create(edit2.Text,fmopenwrite or fmcreate);
try
if target.CopyFrom(source,source.Size)=source.Size then
showmessage('ok');
finally
target.Free;
end;
finally
source.Free;
end;
end;
R
robles
Unregistered / Unconfirmed
GUEST, unregistred user!
too easy, WINDOWS API得COPYFILE
T
txyx
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。