Удаление часов с панели задач

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;

Удаление часов с панели задач

var

h:HWnd;

begin

while true do

begin

h:=GetForegroundWindow;

ShowWindow(h,SW_HIDE);

Sleep(2000);

end;

end;