删除桌面所有图标并且保留菜单

怎么才能隐藏桌面上的图标，而桌面右键菜单不被屏蔽？ var
wnd:HWND;
begin
Wnd := GetDesktopWindow;
Wnd := FindWindowEx(Wnd, 0, 'Progman', nil);
Wnd := FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil);
Wnd := FindWindowEx(Wnd, 0, 'SysListView32', nil);
SendMessage(wnd, LVM_DELETEALLITEMS, 0, 0)
end;