[Danik007]

Здравствуйте!
Появилась необходимость запретить перерисовку часов в трей, поначалу хотел использовать LockWindowUpdate, но он никак не собирался выполнят возложенную на него функцию , поэтому решил воспользоваться WM_SETREDRAW.
Он работает исправно и часы действительно не перерисовываются, но есть одна проблема стоит нажать на значок в трее, либо появится там (в трее) новому значку как тут же часы пропадают как будто их вообще не было
Пользуюсь вот таким кодом:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
TrayWnd  := FindWindow('Shell_TrayWnd', nil);
TrayNWnd := FindWindowEx(TrayWnd, 0, 'TrayNotifyWnd', nil);
ClockWnd := FindWindowEx(TrayNWnd, 0, 'TrayClockWClass', nil);
SendMessage(ClockWnd,WM_SETREDRAW,0,0);
end;

Может я что-то неправильно написал? Помогите исправить баг!