Mega Code Archive

 

Categories / Delphi / System

 

Saati yok etmek

Yok 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;