var hTaskBar, hn: HWND;
begin
  hTaskBar:= FindWindow('Shell_TrayWnd', nil);
  ShowWindow(hTaskBar,SW_HIDE) {TaskBar исчез}
 ShowWindow(hTaskBar,SW_SHOW) {TaskBar появился}
 hn := FindWindowEx(FindWindowEx( FindWindow( 'Shell_TrayWnd', nil),  0 , 'TrayNotifyWnd', nil),  0 , 'TrayClockWClass', nil);
 ShowWindow(hn,SW_HIDE) {часы исчезли}
 ShowWindow(hn,SW_SHOW) {часы появились}
end; 

  HWND hTaskBar= FindWindow( "Shell_TrayWnd" ,  0 );
  ShowWindow(hTaskBar,SW_HIDE); /* {TaskBar исчез}*/ 
 ShowWindow(hTaskBar,SW_SHOW); /* {TaskBar появился}*/ 
 HWND hn = FindWindowEx(FindWindowEx( FindWindow(  "Shell_TrayWnd" ,  0 ),  0 ,  "TrayNotifyWnd" ,  0 ),  0 ,  "TrayClockWClass" ,  0 );
 ShowWindow(hn,SW_HIDE);  /*{часы исчезли}*/ 
 ShowWindow(hn,SW_SHOW);  /*{часы появились}*/