SHFileOperation API函数问题 急!!!

newsxy newsxy 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
function ToRecycle(AHandle: THandle; AFileName: string): Boolean;
var
SHFileOpStruct: TSHFileOpStruct;
begin
with SHFileOpStruct do
begin
Wnd := AHandle;
wFunc := FO_DELETE;
pFrom := Pchar(AFileName);
fFlags :=FOF_ALLOWUNDO;
end;
if SHFileOperation(SHFileOpStruct) = 0 then
begin
Result := True;
end
else begin
Result := False;
end;
end;

在我的计算机上可以运行,但在其它的计算机上出错:
Access violation at address 77EA8FDA in module 'kernel32.dll'. Read of Address 00070000.

如何解决
...全文
评论 2
收藏 已收藏
分享
返回顶部
newsxy
Windows SDK/API 1,184 成员 22,326 内容