盒子论坛 v2.1

!实时搜索:	盒子论坛 \| 注册用户 \| 修改信息 \| 退出
	检举帖 \| 全文检索 \| 关闭广告 \| 捐赠

技术论坛

用户名

密码

自动登陆(30天有效)

≡技术区≡ ①

lazarus/fpc/Free Pascal

移动应用开发

Web应用开发

数据库专区

论坛精华贴

≡发布区≡ ②

≡事务区≡ ③

论坛信息

最新加入： tino0914

今日帖子： 30

在线用户： 14

导航：

论坛 -> DELPHI技术斑竹:liumazi,sephil

作者：

asen26 (清风)	★☆☆☆☆	-
	禁用账号

2003/6/2 17:22:07

标题：

被禁用帐号，仅在管理模式可见！

浏览:2165

加入我的收藏

楼主：

……
被禁用帐号，帖子内容自动屏蔽！
……
----------------------------------------------
我爱Delphi,我爱所有爱Delphi的朋友

作者：

shj209 (shj209)	★☆☆☆☆	-
	盒子活跃会员

2003/6/2 21:21:25

1楼：

文件是否包含文件夹？如果有可以用SHFileOperation这个API函数。
----------------------------------------------
-

作者：

boy (阿門)	★☆☆☆☆	-
	盒子活跃会员

2003/6/3 1:34:56

2楼：

試試

var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;
Begin
  FillChar(frombuf, Sizeof(frombuf), 0);
  FillChar(tobuf, Sizeof(tobuf), 0);
  StrPCopy(frombuf, 'L:\E-Book電子書\筆記\A\*.htm');
  StrPCopy(tobuf, 'L:\E-Book電子書\筆記\temp\');
  With OpStruc DO
  Begin
    Wnd:=Handle;
    wFunc:=FO_COPY;
    pFrom:=@frombuf;
    pTo:=@tobuf;
    fFlags:=FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted:=False;
    hNameMappings:=Nil;
    lpszProgressTitle:=Nil;
  end;
  ShFileOperation(OpStruc);
end;
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★

信息

登陆以后才能回复

Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有页面执行70.3125毫秒