delphi - 我无法将文件删除到回收站

Question

我无法将文件删除到回收站。

VAR SHFileOpStruct: TSHFileOpStruct;
begin   
  with SHFileOpStruct  do
  begin
    wnd   := Handle; 
    wFunc := FO_DELETE;
    pFrom := PChar(FileName);
    fFlags:= 0;
    pTo   := NIL;
    hNameMappings:= NIL;
    lpszProgressTitle:= NIL;
  end;
  Result:= SHFileOperation(SHFileOpStruct); 
end;

我可以删除“1.xyz”格式的文件，但不能删除“12.xyz”格式的文件(文件名长度超过 1 个字符)。

Answer 1

根据the documentation of SHFileOperation您不应该使用 GetLastError 来查看操作是否成功。检查函数的结果并使用文档找出它返回的错误。这应该可以让您更好地了解问题所在。

编辑:

阅读文档的最佳猜测:

pFrom

Although this member is declared as a single null-terminated string, it is actually a buffer that can hold multiple null-delimited file names. Each file name is terminated by a single NULL character. The last file name is terminated with a double NULL character ("\0\0") to indicate the end of the buffer

所以你应该确保 pFrom 以双 0 结尾。尝试以下操作

pFrom := PChar(FileName + #0);

另外，您使用的 Delphi 版本是什么？

编辑2:

还要确保结构正确初始化为 0。取消注释 FillChar