Fazendo desaparecer ícones no seu computador (Show/Hide)

procedure ShowDesktop(const YesNo: boolean);

var

  h: THandle;

begin

  h := FindWindow('ProgMan', nil);

  h := GetWindow(h, GW_CHILD);

  if YesNo = True then

    ShowWindow(h, SW_SHOW)

  else

    ShowWindow(h, SW_HIDE);

end;