![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Необходимо сделать невидимое приложение, только значок в трее
Перепробовал различные варианты, остановился пока на этом Код:
procedure TForm1.ApplicationEvents1Activate(Sender: TObject); begin Hide(); WindowState := wsMinimized; end; При этом на панели задач приложение все равно отображается на долю секунды Также при запуске по расписанию из планировщика задач приложение отображается на панели задач Как вылечить? |
|
#2
|
||||
|
||||
|
Попробуй
Код:
ShowWindow(Handle, SW_MINIMIZE); ShowWindow(Handle, SW_HIDE); ShowWindow(Application.Handle, SW_HIDE); Последний раз редактировалось angvelem, 28.01.2014 в 04:55. |
|
#3
|
|||
|
|||
|
В файле проекта:
Код:
Applicartion.ShowMainForm := False; ЗЫ. Компонент TCoolTrayIcon умеет это делать сам, там есть соотв. свойство. |
|
#4
|
|||
|
|||
|
Ошибся, пока не помогло
Последний раз редактировалось mad8vad, 28.01.2014 в 11:12. |
|
#5
|
||||
|
||||
|
Приведённый выше код, у меня используется для сворачивания в TrayBar.
|