Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Окно на панели задач [D6, Win95/98, WinME, NT4, Win2k, WinXP]


Malcolm ©   (2002-06-27 19:42:00) 

в 98 винде пишу ShowWindow(application.handle,0); и с панели задач окно исчезает, а в nt/xp/win2k это не проходит?? как это сделать??


Alik   (2002-06-27 20:54:00) [1]

Попробуй так. Хотя похоже на твой способ, но какого че$та???

Запретить вывод кнопки на панели задач:
ShowWindow(Application.Handle, SW_HIDE);
{Вставить в оработчик события OnFormActivate}
или:
Внеся изменения (выделенные цветом) в свой проект вы получите приложение, которое не видно в TaskBar и на него нельзя переключиться по Alt-Tab


program Project1;
uses
Forms,
Windows,
Unit1 in "Unit1.pas" {Form1};
{$R *.RES}
var
ExtendedStyle : integer;
begin
Application.Initialize;
ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
ExtendedStyle or WS_EX_TOOLWINDOW {AND NOT WS_EX_APPWINDOW});
Application.CreateForm(TForm1, Form1);
Application.Run;
end.


Наверх

Титульная страница Поиск, карта сайта Написать письмо