让我发疯的问题(50分)

lgsonline · 2002-06-04

procedure TForm1.Button1Click(Sender: TObject); var      f:Tshfileopstruct;    begin        f.wnd:=Handle;           F.wFunc:=FO_COPY;       F.pFrom:=pchar(edit1.text);       F.pTo:=pchar(edit2.text);             F.fFlags:=FOF_ALLOWUNDO OR FOF_RENAMEONCOLLISION  ;    if ShFileOperation(F)<>0 then    ShowMessage('文件拷贝失败'); end; 帮高手帮我看看好吗？

lgsonline · 2002-06-04

这是个产生win95拷贝效果的程序，但是有个的文件不能拷贝 提示我无法复制文件，文件系统错误（1026）

wukw · 2002-06-05

这不是程序的错。有些系统正在用的文件就是不能拷贝的[^] 对了，注意把文件属性改为normal试试[^]

lgsonline · 2002-06-05

谢谢wukw，我试过了，文件没有被使用，而且错误提示是找不到要复制文件的提示 请你和我联系好吗，qq7131331

system_owen · 2002-06-05

使用API FILECOPY

lgsonline · 2002-06-05

谢谢system-owen,可以详细说明一下吗?

pnljh · 2002-06-05

如果是D6，本身就是复制文件的函数,好像是filecopy还是copyfile

lgsonline · 2002-06-05

谢谢pnljh，应该是copyfile，但是这个函数不能产生win98copy的效果，没有进度，剩余时间 等提示，我调用这个函数的目的就是这个。大家帮我看看好吗

pnljh · 2002-06-05

api函数的copyfile用法示例： copyfile('C:/Downloads/vsnet.zip','c:/winnt/Temp/Temp.zip',true); 也是没有进度条。

lgsonline · 2002-06-05

pnljh:我的目的不是copy，copyfile我知道怎么用，我要的是win98 的copy效果 有上海的高手吗？到现场帮我看看，我请吃饭

Bxch_1000 · 2002-06-05

应该是文件路径不正确，跟踪调试看一下

死水 · 2002-06-05

有上海的高手吗？到现场帮我看看，我请吃饭 有！

lgsonline · 2002-06-05

bxch_1000谢谢，跟踪不出来啊

lgsonline · 2002-06-05

死水你在那里怎么和你联系？我请你吃饭

pnljh · 2002-06-06

var  f:Tshfileopstruct; begin  f.Wnd:=Handle;  f.wFunc:=fo_copy;  f.pFrom:=pchar(edit1.Text);  f.pTo:=Pchar(edit2.Text);  f.fFlags:=FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS;//跟你的不一样  f.lpszProgressTitle:=pchar('从'+'“'+Edit1.Text+'”到 “'+Edit2.Text+'”'); if ShFileOperation(F)<>0 then    ShowMessage('文件拷贝失败'); end; 其中：   Edit1.Text:='f:/ljh/exam/driver.cab';   Edit2.Text:='f:/ljh/exam/1' 也就是将driver.cab复制到f:/ljh/exam/1目录下，成功了，并显示了进度。 注：要复制的文件要大一点才能看到显示进度

lgsonline · 2002-06-06

非常感谢pnljh的‘屡次三番的解答’：） 你的程序我试过了还不行 我的程序问题是有的文件可以copy，有的不可以copy 提示我无法复制文件，文件系统错误（1026） 你输入一个不存在的文件名就可以看到我的错误提示了 我把这段程序放在别的目录下，本来可以copy的文件又不可以copy了，真是很怪 希望你留下联系方式

pnljh · 2002-06-06

如果源文件不存在，会出现如下错误（我用的是win2K）： 无法复制文件：无法读源文件或磁盘 不知道你是不是用了相对路径，要确保文件没被使用， 我的Email:gzljh@21cn.com。 我有个程序给你，是编译好的，程序和原来的一样，只是多了选择文件和路径， 以确保文件和路径存在， 文件和路径是不能手工改的，只能选。我将程序复制到其他目录运行一样OK。 复制文件也OK(有进度条)。 给个email我发过去。

redsky.l · 2002-06-06

用TFileStream方法也可以实现呀。

月满西楼 · 2002-06-06

SHFileOpStruct的pFrom和pTo要求的是以两个'/0'结尾的缓冲区，直接将String变成PChar 并不符合此要求，因此会出错。 var   p : PChar; begin   GetMem(p,Length(sFileName)+1);   FillChar(p^,Length(sFileName)+1,0);   StrPCopy(p,sFileName);   ...

lgsonline · 2002-06-06

感谢月满西楼：我水平太差，请发个完整的程序好吗，谢谢 pnljh，我的email lgsonline@sina.com，我发现拷贝dos文件都出错

让我发疯的问题(50分)

lgsonline

Unregistered / Unconfirmed

lgsonline

Unregistered / Unconfirmed

wukw

Unregistered / Unconfirmed

lgsonline

Unregistered / Unconfirmed

system_owen

Unregistered / Unconfirmed

lgsonline

Unregistered / Unconfirmed

pnljh

Unregistered / Unconfirmed

lgsonline

Unregistered / Unconfirmed

pnljh

Unregistered / Unconfirmed

lgsonline

Unregistered / Unconfirmed

Bxch_1000

Unregistered / Unconfirmed

死水

Unregistered / Unconfirmed

lgsonline

Unregistered / Unconfirmed

lgsonline

Unregistered / Unconfirmed

pnljh

Unregistered / Unconfirmed

lgsonline

Unregistered / Unconfirmed

pnljh

Unregistered / Unconfirmed

redsky.l

Unregistered / Unconfirmed

月满西楼

Unregistered / Unconfirmed

lgsonline

Unregistered / Unconfirmed

Similar threads