5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Wingsun 2000-09-14
- 打赏
- 举报
nieyongxin所写的代码中的AHandle，你可以使用当前的窗口句柄。如
RoRecycle(Form1.handle,'D:\temp.bmp');
RoRecycle(Form1.handle,'D:\temp.bmp');
nieyongxin 2000-09-14
- 打赏
- 举报
Help对参数AHandle的解释是：
Handle of the dialog box to use to display information about the status of the operation.
但我将AHandle 设为Dialog Box的Handle时，一运行就出错，恳请朋友们指点。
Handle of the dialog box to use to display information about the status of the operation.
但我将AHandle 设为Dialog Box的Handle时，一运行就出错，恳请朋友们指点。
Wingsun 2000-09-14
- 打赏
- 举报
使用WindowsAPI SHFileOperation.具体的可以看MSDN的帮助。
nieyongxin 2000-09-14
- 打赏
- 举报
我有现成的代码，但不知参数AHandle如何设定。
procedure ToRecycle(AHandle:THandle;AFileName:string);
var
SHFileOpStruct:TShFileOpStruct;
begin
with ShFileOpStruct do
begin
Wnd:=AHandle;
wFunc:=FO_DELETE;
pFrom:=PChar(AFileName);
fFlags:=FOF_ALLOWUNDO;
end;
SHFileOperation(SHFileOpStruct);
end;
procedure ToRecycle(AHandle:THandle;AFileName:string);
var
SHFileOpStruct:TShFileOpStruct;
begin
with ShFileOpStruct do
begin
Wnd:=AHandle;
wFunc:=FO_DELETE;
pFrom:=PChar(AFileName);
fFlags:=FOF_ALLOWUNDO;
end;
SHFileOperation(SHFileOpStruct);
end;
