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

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

ICQ [D6, Win2k]

Rul ©   (2003-11-13 12:29:00) 

Как сделать програмку типа ICQ, чтобы она была только в СистемТрэй, а в панели задач небыло.

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

---

Prov   (2003-11-14 10:23:00) [1]

procedure SetIconState(uIDA: cardinal; hIconA: HICON; dwMessageA: cardinal);
var NIF: TNotifyIconData;
begin
NIF.cbSize:= SizeOf(TNotifyIconData);
NIF.Wnd:= MainWindow;
NIF.uID:= uIDA;
NIF.uFlags:= NIF_ICON or NIF_TIP or NIF_MESSAGE;
NIF.uCallbackMessage:= WM_TRAYICONMSG;
NIF.hIcon:= hIconA;
NIF.szTip:= "Test";
Shell_NotifyIcon(dwMessageA, @NIF);
end;

dwMessage: NIM_ADD, NIM_DELETE, NIM_MODIFY

---

Prov   (2003-11-13 17:44:00) [2]

в трэй можно затолкнуть прогу так: ShellNotofyIcon, зполнив структуру

---

KosilkA   (2003-11-13 13:10:00) [3]

program Project1;

uses
Forms, Windows,
Unit1 in "Unit1.pas" {Form1};

{$R *.res}
var EStyle: integer;

begin
Application.Initialize;
EStyle:=GetWindowLong(application.Handle,GWL_EXSTYLE
SetWindowLong(application.Handle,GWL_EXSTYLE,EStyle or WS_EX_TOOLWINDOW);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

---

Наверх