如何用程式將檔案丟入資源回收筒 一般用程式刪除檔案後並不會將檔案放入資源回收筒, 只有用人工在檔案總管刪除後才會放入資源回收筒, 這個範例說明如何做到,但同樣的本程式在Windows 2000與NT系列下無法執行, 網友知道的幫個忙,上傳範例檔,謝謝!

uses ShellAPI;
procedure SendToRecycleBin(FileName: string);
var
    SHF: TSHFileOpStruct;
begin
    with SHF do 
    begin
        Wnd := Application.Handle;
        wFunc := FO_DELETE;
        pFrom := PChar(FileName);
        fFlags := FOF_SILENT or FOF_ALLOWUNDO;
    end;
    SHFileOperation(SHF);
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
    SendToRecycleBin('c:\DownLoad\Test.gif');
end;    

～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～