[DELPHI] OCULTAR OU MOSTRAR O RELÓGIO DA BARRA DE TAREFAS DO WINDOWS

//uses windows

procedure TForm1.Button1Click(Sender: TObject);

begin

  // Ocultar

  ShowWindow(FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd', nil), HWnd(0), 'TrayNotifyWnd', nil), HWnd(0), 'TrayClockWClass', nil), SW_HIDE);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  // Mostrar

  ShowWindow(FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd', nil), HWnd(0), 'TrayNotifyWnd', nil), HWnd(0), 'TrayClockWClass', nil), SW_SHOW);

end;

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