Как в XP спрятаться от ALT+TAB?

← →
demonyator © (2003-04-14 23:49) [0]

Сабж сообственно.
Пробовал вот что.
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.
Не получается........

← →
Cobalt © (2003-04-15 12:35) [1]

попробуйте разкомментировать кусок

← →
demonyator © (2003-04-16 19:06) [2]

пробовал, - не хочет никак, то есть программа запускается, работает, но значок не пропадает.

← →
demonyator © (2003-04-18 15:04) [3]

ну подскажите хоть что-нибудь.

← →
Snap © (2003-04-18 15:07) [4]

По моему там с ShowWindow нао намутить. sw_hide что ли поставить. Одним словом, копай в этом направлении.

← →
DAT (2003-04-18 18:09) [5]

Вы все правильно делаете, не хватает только одной строчки:

Application.CreateForm(TStartForm, StartForm);
Application.ShowMainForm:=false;
Application.Run;

Application.ShowMainForm:=false; не катит, потому что я хочу видеть свою форму.... помимо этого значок появляется как только форма становится видимой...

Проблему эту я всё-таки решил, кому интересно, вот как:
Для каждой формы я пропиываю по сути то же самое в onCreate
var WnHnd : Integer; begin WnHnd := GetWindowLong(Form1.Handle, GWL_EXSTYLE); WnHnd := WnHnd or WS_EX_TOOLWINDOW; SetWindowLong(Form1.Handle, GWL_EXSTYLE, WnHnd);

После этого всё чудесно. Спасибо всем за помощь.

Как в XP спрятаться от ALT+TAB? Найти похожие ветки