|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.11.2009, 14:12 | #1 |
Пользователь
Регистрация: 09.09.2009
Сообщений: 31
|
часы в трее
Подскажите пожалуйста, сделал часы в трее вместо стандартных ,работает ,но примерно через минут 15 исчезают с трея.
похоже перегружается explorer ,как сделать чтобы он не перегружался? |
25.11.2009, 14:52 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А как ты их туда запихал?
I'm learning to live...
|
25.11.2009, 15:01 | #3 |
Пользователь
Регистрация: 09.09.2009
Сообщений: 31
|
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) вот так |
25.11.2009, 15:06 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А-а-а да... Так не очень гоже...
Лучше создай некую иконку TIcon, на ее канве часы, а саму иконку через Shell_NotifyIcon вставляй в трей.
I'm learning to live...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Собственные часы в трее | Crivel | Общие вопросы Delphi | 6 | 02.09.2010 13:31 |
Часы | Bingam Vici | Свободное общение | 5 | 18.05.2009 14:50 |
Программа в трее | zonclayv | Win Api | 1 | 17.04.2009 14:58 |
Заменить часы в трее | Teen4jump | Win Api | 10 | 08.08.2007 12:26 |
значки в трее | oLMeR | Общие вопросы Delphi | 3 | 11.11.2006 18:39 |