часы в трее

[grater83]

Подскажите пожалуйста, сделал часы в трее вместо стандартных ,работает ,но примерно через минут 15 исчезают с трея.
похоже перегружается explorer ,как сделать чтобы он не перегружался?

[Stilet]

А как ты их туда запихал?

[grater83]

h := FindWindow('Shell_TrayWnd', nil);
h := FindWindowEx(h, HWND(0), 'TrayNotifyWnd', nil);
d := FindWindowEx(h, HWND(0), 'trayclockwclass', nil);
ShowWindow(d, SW_HIDE);
f:=TJvclock.Create(nil);
f.ParentWindow := h;
f.Width := 150;
f.Height := 20;
GetWindowRect(h, r);
SetWindowPos(h, 0 ,r.Left - f.Width, 0, r.Right - r.Left + f.Width, r.Bottom - r.Top,0);
SetWindowPos(f.Handle,0 ,r.Right - r.Left, 5, f.Width - 10, f.Height,0)
вот так

[Stilet]

А-а-а да... Так не очень гоже...
Лучше создай некую иконку TIcon, на ее канве часы, а саму иконку через Shell_NotifyIcon вставляй в трей.