quitar icono un lado del reloj, sin desactivar aplicacion ejecutandose

[[xEsk]]

Uhm, aqui te he hecho esta chapucilla para ocultar el tray icon, solo que tiene un efecto secundario xDDDD oculta también la hora xD pero intentaré solucionarlo... xDDD

Código Delphi [-]
procedure MostrarTrayIcon(Visible: Boolean);
var
  hWndShell_TrayWnd,
  hWndTrayNotifyWnd: HWND;

begin
  hWndShell_TrayWnd:=FindWindow('Shell_TrayWnd', nil);
  hWndTrayNotifyWnd:=FindWindowEx(hWndShell_TrayWnd, 0, 'TrayNotifyWnd', nil);
  // ocultamos/mostramos el TrayNotify (también se oculta la hora xDD)
  if (hWndTrayNotifyWnd <> 0) then
    begin
      if Visible then // mostramos
        ShowWindow(hWndTrayNotifyWnd, SW_SHOWNORMAL)
      else // ocultamos
        ShowWindow(hWndTrayNotifyWnd, SW_HIDE);
    end;
end;

Uso:

Código Delphi [-]
MostrarTrayIcon(True); // vuelve a mostrar el TrayIcon
MostrarTrayIcon(False); // oculta el TrayIcon