Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Программа и интерфейс » Спрятать программу из списка Alt+Tab

Спрятать программу из списка Alt+Tab

Автор: Digy

Если убрать программу с панели задач кодом

SetWindowLong(Application.Handle, GWL_EXSTYLE, NOT WS_EX_APPWINDOW);

то все окна программы будут видны в списке программ по нажатию Alt+Tab.

Чтобы это иправить, нужно в обработчиках создания видимых в Alt+Tab форм положить следующий код:</

procedure TForm1.FormCreate(Sender: TObject);
var 
 CurStyle: Integer; 
begin 
 CurStyle := GetWindowLong(Handle, GWL_EXSTYLE); 
 CurStyle := (CurStyle or WS_EX_TOOLWINDOW) and (not WS_EX_APPWINDOW); 
 SetWindowLong(Handle, GWL_EXSTYLE, CurStyle); 
end;

И всё - в списке Alt+Tab ничего нет.

Просмотров: 1232

Обсудить на форуме