[DELPHI] ESCONDER OU MOSTRAR OS ÍCONES DA ÁREA DE TRABALHO DO WINDOWS

// uses windows

procedure TForm.Button1Click(Sender: TObject);

begin

  // Para esconder os ícones da área de trabalho

  ShowWindow(FindWindow(nil, 'Program Manager'), SW_HIDE);

end;

procedure TForm.Button2Click(Sender: TObject);

begin

  // Para mostrar os ícones da área de trabalho

  ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】