//隐藏桌面上的图标
procedure DesktopHideIcon;
var
h: THandle;
begin
h := FindWindow('Progman', nil);
ShowWindow(h, SW_HIDE);
end;
//显示桌面上的图标
procedure DesktopShowIcon;
var
h: THandle;
begin
h := FindWindow('Progman', nil);
ShowWindow(h, SW_SHOW);
end;