如何删除一个文件夹至回收站中？

Question

我有现成的代码，但不知参数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;

Answer 1

使用WindowsAPI SHFileOperation.具体的可以看MSDN的帮助。

Answer 2

Help对参数AHandle的解释是：
Handle of the dialog box to use to display information about the status of the operation. 但我将AHandle 设为Dialog Box的Handle时，一运行就出错，恳请朋友们指点。

Answer 3

nieyongxin所写的代码中的AHandle，你可以使用当前的窗口句柄。如
RoRecycle(Form1.handle,'D:\temp.bmp');