Mega Code Archive

 

Categories / Delphi / System

 

Görev çubuğu üzerindeki saati gizleme-gösterme

// Gizlemek etmek icin: procedure TForm1.Button1Click(Sender: TObject); 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; //Göstermek icin: procedure TForm1.Button1Click(Sender: TObject); 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;