Скачать: CL | DM;

Запуск приложения - на TaskBar не выводить   Найти похожие ветки 

← →
Cossys ©   (2002-05-22 18:22) [0]

Чего-то я нигде не нашел (или под NT) не пашет. Пробую:
в процедуре onCreate
ShowWindow(Application.Handle, SW_HIDE);

и так не пашет:
ShowWindow(Handle, SW_HIDE);

и так..
ShowWindow(MainForm.Handle, SW_HIDE);

Появляется приложение все равно!

---

← →
Song ©   (2002-05-22 19:35) [1]

Понятно что в onCreate она не пашет, потому что в этот момент и форма и не видна и очередь сообщений не выполняется.

---

← →
Юрий Зотов ©   (2002-05-22 23:33) [2]

В том же обработчике OnCreate просто пишем:
Application.ShowMainForm := False;

И все.

---

← →
ga3 ©   (2002-05-23 01:34) [3]

Можно просто в обжект инспекторе в св-вах главной формы указать WindowState:=WSMinimized, а на саму форму кинуть CoolTrayIcon с ввв.торри.нет она бесплатная. в ее своиствах прописать чтоб при минимизации сворачивалось в трей около часов системных. и тогда при запуске прога будет автоматически в систрей убираться и не захламлять панель задач. А к култрейикон приделай попапменю чтоб можно было развернуть если надо

---

← →
Xoy   (2002-05-23 05:54) [4]

Внеся изменения в свой проект вы, получите приложение, которое не видно в 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.

Под Win98 работает, под NT не пробовал.

---

← →
Cossys ©   (2002-05-23 11:17) [5]

to Xoy
Спасибо, все работает под NT, то, что надо!

---

← →
Sasha9 ©   (2002-05-23 16:36) [6]

2Cossys
нужно было писать
ShowWindow(Application.Handle, SW_HIDE);
не в OnCreate, а в OnShow

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c