Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.01.2011, 12:11   #1
tsar_
Форумчанин
 
Аватар для tsar_
 
Регистрация: 06.01.2011
Сообщений: 369
Радость Программы Delphi нет на Панели задач

Всем привет! У меня вопрос: можно ли сделать так, чтобы значок программы (написанной на Delphi 7) отсутствовал на панели задач, но программа была визуальна на рабочем столе.
Для чего это: я написал простецкую прогу "Календарь" (форма с прозрачным фоном, на ней Image c битовым образом собственно календаря, на него при помощи компонентов Label выводится текущая системная дата, как видно ниче сложного). Теперь в качестве последнего штриха хочется запихнуть значок проги в трей (с этим справился уже) и убрать его с панели задач напрочь.
Искал в инете ответ, но там обычно этот вопрос решается методами, которые делают приложение полностью невидимым (типа Application.Hide и др.), а мне это не нужно. Что посоветуете?
Программирую по необходимости

Последний раз редактировалось tsar_; 10.01.2011 в 12:13.
tsar_ вне форума Ответить с цитированием
Старый 10.01.2011, 12:59   #2
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

Лет 10 назад я делал это так:

Код:
function HideShowAppFromTaskbar(DoShow: Boolean): Boolean;
var
  ExStyle: LongWord;
begin
  ExStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE );
  if DoShow then ExStyle := ExStyle and not WS_EX_TOOLWINDOW
	    else ExStyle := ExStyle or WS_EX_TOOLWINDOW;
  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE, ExStyle);
  ShowWindow(Application.Handle, SW_SHOW);
  Result := True;
end;
Не знаю, будет ли это работать под вистой. Ну и про
Код:
Application.ShowMainForm := False;
не забываем.
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Своя панелька в Панели задач WinXP(на Delphi) DmT Помощь студентам 14 13.01.2011 17:18
Скрытие кнопки программы на панели задач AndreyK Общие вопросы Delphi 8 31.10.2010 23:50
апплет панели задач skalt12 Общие вопросы Delphi 5 01.08.2010 14:34
Аналог панели задач. не могу разобраться с последовательностью выполнения программы Paul Hindenburg Общие вопросы Delphi 1 09.04.2009 23:45