Artigos Delphi Dicas - Tray

Escondendo o relógio do tray

 

Veja no código abaixo como esconder o relógio do tray:

 

function ShowTrayClock(bValue: Boolean) : Boolean;

var

  TrayWnd, TrayNWnd, ClockWnd: HWND;

begin

  TrayWnd := FindWindow('Shell_TrayWnd', nil);

  TrayNWnd := FindWindowEx(TrayWnd, 0, 'TrayNotifyWnd', nil);

  ClockWnd := FindWindowEx(TrayNWnd, 0, 'TrayClockWClass', nil);

  Result := IsWindow(ClockWnd);

  if Result then

  begin

    ShowWindow(ClockWnd, Ord(bValue));

    PostMessage(ClockWnd, WM_PAINT, 0, 0);

  end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowTrayClock(Boolean(0));

end;