TSHFileOpStruct的应用(50分)

zhanghua · 1998-11-02

用如下程序完成拷贝功能时，报告文件错 procedure TForm1.Button1Click(Sender: TObject); var  F : TShFileOpStruct; begin  F.Wnd := Handleaway  F.wFunc := FO_COPY;  F.pFrom := 'D:/a.db';  F.pTo := 'C:/b.db';  F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;  if ShFileOperation(F) <> 0 then ShowMessage('Failed'); end; 但是拷贝*。TXT文件时可以。

liwei · 1998-11-02

可能是 A.DB 或 B.DB正在被别的程序或你的程序使用, 所以你的程序无法打开他们而出错.    你可以用GETLASTERROR()取得错误号, 来查出到底是 会么错误. 或者ShFileOperation(F)的返回值可以指出是 什么错误.

pegasus · 1998-11-02

Hehe &lt&gt disappeared in the above code, you can use these 3 char sequence to replace &lt: '&' 'l' 't' and '&' 'g' 't' to replace &gt

dwwang · 1998-11-02

咦?pega,贴错地方啦!?

李宏光 · 1998-11-22

看看正在讨论的  "类似 deltree xcopy 函数的讨论"  

pegasus · 1998-11-22

To dwwang: ?? Hehe, it's my first time to see this problem. And I remember I attibute my comment onto another problem. That might be a little bug,

houyg · 1998-12-03

因为TShFileOpStruct的pFrom和pTo是PChar类型，所以它是以#0为结束标志。 做以下改动就可以了。 F.pFrom := 'D:/a.db';  ->  F.pFrom := 'D:/a.db'#0; F.pTo := 'C:/b.db';    ->  F.pTo   := 'c:/b.db'#0;

zhanghua · 1998-12-17

谢谢各位！ 按照各位建议，经过测试，我认为pegasus和houyg的答案可以接受， 本身有bug,但houyg的方法可解决。 问题讨论到此结束。

pegasus · 1998-12-18

Haha, I never join the discussion of this problem, but I got the lion's share,

TSHFileOpStruct的应用(50分)

zhanghua

Unregistered / Unconfirmed

liwei

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

dwwang

Unregistered / Unconfirmed

李宏光

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

houyg

Unregistered / Unconfirmed

zhanghua

Unregistered / Unconfirmed

pegasus

Unregistered / Unconfirmed

Similar threads