DELPHI复制文件到程序自身目录下的错误 |
|
|
|
maakite
一般會員   發表：4 回覆：7 積分：7 註冊：2007-04-06 發送簡訊給我 |
var OpStruc:TSHFileOpStruct; //定义OpStruc为操作结构体指针 FromBuf,ToBuf:array[0..800] of char; //定义源路径和目标路径 Begin StrPcopy(FromBuf,Pchar('\\cb0\a\*.*')); StrPcopy(ToBuf,Pchar('''' extractfilepath(Application.exename) '''')); //设置源路径和目标路径,错误提示:无法复制源文件 \\如换成固定的目录又可以复制.如:StrPcopy(ToBuf,Pchar('D:\ABC')) with OpStruc do //开始定义结构体参数 begin wnd:=handle; //定义本窗体句柄,表明操作在本窗体出现 wFunc:=FO_COPY; //说明本次操作为复制 pFrom:=@FromBuf; //填源路径字符 pTo:=@ToBuf; //填目标路径字符 fFlags:=FOF_NOCONFIRMATION{不显示确认复盖对话框} {or FOF_SIMPLEPROGRESS{不显示进度条文件名} or FOF_NOCONFIRMMKDIR{不显示新建文件夹对话框} ; //注意操作标志,如果你要让进度条出现必须有FOF_SIMPLEPROGRESS值 fAnyOperationsAborted:=false; hNameMappings:=nil; lpszProgressTitle:=nil; end; if SHfileOperation(OpStruc)=0 then showmessage('复制完毕!'); end; 请各位大侠帮助解决一下,QQ308362196 电话:13688977737 |
|
Stallion
版主  發表：52 回覆：1600 積分：1995 註冊：2004-09-15 發送簡訊給我 |
|
|
maakite
一般會員 發表：4 回覆：7 積分：7 註冊：2007-04-06 發送簡訊給我 |
發表時間：2007-04-06 14:51:55
IP:61.142.xxx.xxx 訂閱
系統時間：2024-04-20 6:00:52
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |