从Delphi XE调用SHGetSetSettings不会返回任何内容

Question

我尝试做的是隐藏桌面设备。 我有一个有效的黑客，但我想用正确的方法，使用SHGetSetSettings。 问题是在调用SHGetSetSettings之后，记录用零填充！

procedure GetDesktopData;
var
  lpss: tagSHELLSTATEW;
begin
  ZeroMemory(@lpss, SizeOf(lpss));
  SHGetSetSettings(lpss, SSF_HIDEICONS, FALSE); { TRUE to indicate that the contents of lpss should be used to set the Shell settings, FALSE to indicate that the Shell settings should be retrieved to lpss. }
end;

我做错了什么？为什么记录没有填充数据？ 我有Windows 7。

---

这个问题与Calling SHGetSetSettings from Delphi类似，但不完全相同。该问题讨论了从Delphi 2010调用SHGetSetSettings的结构。函数和传入结构现在存在于Delphi xE下（但仍然无效）。

---

TLama提供的解决方案。