永久刪除目錄

Question

我使用此代碼刪除整個目錄：

uses 
    ShellApi; 

function DelDir(dir: string): Boolean; 
var 
    fos: TSHFileOpStruct; 
begin 
    ZeroMemory(@fos, SizeOf(fos)); 
    with fos do 
    begin 
    wFunc := FO_DELETE; 
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION; 
    pFrom := PChar(dir + #0); 
    end; 
    Result := (0 = ShFileOperation(fos)); 
end; 

是否有任何標誌，我可以設置爲允許永久移除刪除的目錄中？
通過永久刪除，我的意思是它不會在刪除後顯示在回收站中，因爲這是使用DelDir函數時會發生的情況。

Answer 1

嘗試設置

FileOpStruct.pTo := nil;

例子：

function DeleteTree(const APath: String): Boolean; 
var 
    FileOpStruct : TShFileOpStruct; 
    ErrorCode: Integer; 
begin 
    Result := False; 
    if DirectoryExists(APath) then begin 
    FillChar(FileOpStruct, SizeOf(FileOpStruct), #0); 
    FileOpStruct.Wnd := 0; 
    FileOpStruct.wFunc := FO_DELETE; 
    FileOpStruct.pFrom := PChar(APath + #0#0); 
    FileOpStruct.pTo := nil; 
    FileOpStruct.fFlags := FOF_SILENT or FOF_NOCONFIRMATION or FOF_NOERRORUI or FOF_NOCONFIRMMKDIR; 
    FileOpStruct.lpszProgressTitle := nil; 
    ErrorCode := ShFileOperation(FileOpStruct); 
    Result := ErrorCode = 0; 
    end; 
end;