delphi隐藏桌面图片和显示桌面图标

//隐藏桌面图标
var
hDesktop : THandle;
begin
hDesktop := FindWindow(′Progman′, nil);
ShowWindow(hDesktop, SW_HIDE);
end;

//显示桌面图标
var
hDesktop : THandle;
begin
hDesktop := FindWindow(′Progman′, nil);
ShowWindow(hDesktop, SW_show);
end;