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

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

Как в XP спрятаться от ALT+TAB? [D7, WinXP]

demonyator ©   (2003-04-14 23:49:00) 

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

Не получается........

---

demonyator   (2003-04-22 22:22:00) [1]

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);


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

---

DAT   (2003-04-18 18:09:00) [2]

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

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

---

Snap   (2003-04-18 15:07:00) [3]

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

---

demonyator   (2003-04-18 15:04:00) [4]

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

---

demonyator   (2003-04-16 19:06:00) [5]

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

---

Cobalt   (2003-04-15 12:35:00) [6]

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

---

Наверх