請問在delphi中如何實現拷貝文件自身 向各位求救 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var fs:TFileStream; begin fs:=TFileStream.create(application.exename,fmopenread or fmShareDenynone); fs.saveToFile('newFilename.ext'); fs.free;end; 复制目录:function CopyDirectory(const Source, Dest: string): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_COPY; pFrom := PChar(source+#0); pTo := PChar(Dest+#0); fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ; end; Result := (SHFileOperation(fo) = 0);end;删除目录:function DelDirectory(const Source:string): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(source+#0); pTo := #0#0; fFlags := FOF_NOCONFIRMATION+FOF_SILENT; end; Result := (SHFileOperation(fo) = 0);end;重新命名:用MoveFile()或者下面的函数也可以。RenameFile('c:\a','c:\b')好想也可以?Win2K。//RenDirectory('d:\wt2','d:\bcde');function RenDirectory(const OldName,NewName:string): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_RENAME; pFrom := PChar(OldName+#0); pTo := pchar(NewName+#0); fFlags := FOF_NOCONFIRMATION+FOF_SILENT; end; Result := (SHFileOperation(fo) = 0);end;//Copy 多个文件的处理:function CopyFiles(const Source,Dest: string): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_COPY; pFrom := @source[1]; pTo :=pchar(dest); fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ; end; Result := (SHFileOperation(fo) = 0);end;procedure TForm1.Button1Click(Sender: TObject);var str:string; i:integer;begin if opendialog1.Execute then begin for i:=0 to OpenDialog1.Files.Count-1 do str:=str+OpenDialog1.Files.strings[i]+#0; showmessage(str); str:=str+#0; CopyFiles(str,'d:\temp'); end;end;以上是目录的相关操作希望对你有所帮助 procedure TForm1.Button1Click(Sender: TObject);begin copyfile(pchar(paramstr(0)),'newfile.ext',true);end; SQLBUILD不见了 delphi菜鸟求教~~~ 通过动态联接库打开窗体时,并闭窗体后提示:错误指针操作。请教!!! DBGridEh 导出成EXCEL文件后,打开时产生错误“不能读取文件”??? 难题急求高手解决!很急!!!!! 查看************的衍生问题 IB数据库如何将查询出的结果合并为DBGrid中的一列? 高薪诚聘DELPHI高手 再次提问!100分,关于ADO编辑时出错的问题!各位请进!!! 如何使用sql2000服务器里的一个名叫 user库中的一个name的表的数据, 多进程间的同步,help!!help!!!! 如何提前甚至EXCEL的格式?
fs:TFileStream;
begin
fs:=TFileStream.create(application.exename,fmopenread or fmShareDenynone);
fs.saveToFile('newFilename.ext');
fs.free;
end;
function CopyDirectory(const Source, Dest: string): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_COPY;
pFrom := PChar(source+#0);
pTo := PChar(Dest+#0);
fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;
end;
Result := (SHFileOperation(fo) = 0);
end;删除目录:function DelDirectory(const Source:string): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(source+#0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
end;
Result := (SHFileOperation(fo) = 0);
end;重新命名:
用MoveFile()或者下面的函数也可以。
RenameFile('c:\a','c:\b')好想也可以?Win2K。
//RenDirectory('d:\wt2','d:\bcde');
function RenDirectory(const OldName,NewName:string): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_RENAME;
pFrom := PChar(OldName+#0);
pTo := pchar(NewName+#0);
fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
end;
Result := (SHFileOperation(fo) = 0);
end;
//Copy 多个文件的处理:
function CopyFiles(const Source,Dest: string): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_COPY;
pFrom := @source[1];
pTo :=pchar(dest);
fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;
end;
Result := (SHFileOperation(fo) = 0);
end;procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
i:integer;
begin
if opendialog1.Execute then
begin
for i:=0 to OpenDialog1.Files.Count-1 do
str:=str+OpenDialog1.Files.strings[i]+#0;
showmessage(str);
str:=str+#0;
CopyFiles(str,'d:\temp');
end;
end;以上是目录的相关操作
希望对你有所帮助
begin
copyfile(pchar(paramstr(0)),'newfile.ext',true);
end;