إظهار و إخفاء الساعة

[قديم الشوق]

وعليكم السلام ورحمة الله وبركاته

كود :

procedure TForm1.Button1Click(Sender: TObject); begin ShowWindow([COLOR=red]FindWindowEx[/COLOR]([COLOR=red]FindWindowEx[/COLOR]([COLOR=black]FindWindow[/COLOR]('Shell_TrayWnd', nil), 0,'TrayNotifyWnd', nil), 0, 'TrayClockWClass', nil), SW_HIDE); end;

ليش تكررت مرتين

الله يجزاك خير ومشكور تم التجربه 100