Programalama > DELPHI

//Saati Gizlemek için;
var
  Wnd : THandle;
begin
  Wnd := FindWindow('Shell_TrayWnd', nil);
  Wnd := FindWindowEx(Wnd, HWND(0),'TrayNotifyWnd', nil);
  Wnd := FindWindowEx(Wnd, HWND(0),'TrayClockWClass', nil);
  ShowWindow(Wnd, SW_HIDE);
end;
//Saati Göstermek için;
var
  Wnd : THandle;
begin
  Wnd := FindWindow('Shell_TrayWnd', nil);
  Wnd := FindWindowEx(Wnd, HWND(0),'TrayNotifyWnd', nil);
  Wnd := FindWindowEx(Wnd, HWND(0),'TrayClockWClass', nil);
  ShowWindow(Wnd, SW_SHOW);
end;