デスクトップのアイコンを消す関数です。ご自由にお持ち帰りください。(特に説明は要らないでしょう(^^;)
ちなみに、アイコンを消すとデスクトップでマウスの右ボタンをクリックしてもポップアップメニューが出なくなりますので気をつけてください。

procedure ShowDesktopIcon(Show: Boolean);
var
  hShellDefView: THandle;
begin
  hShellDefView := FindWindow('Progman', 'Program Manager');
  if hShellDefView <> 0 then
  begin
    hShellDefView := FindWindowEx(hShellDefView, 0, 'SHELLDLL_DefView', nil);
    if hShellDefView <> 0 then
      if Show then
        ShowWindow(hShellDefView, SW_SHOW)
      else
        ShowWindow(hShellDefView, SW_HIDE);
  end;
end;