ICQ

← →
Rul (2003-11-13 12:29) [0]

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

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

← →
KosilkA (2003-11-13 13:10) [1]

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.

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

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

← →
Prov (2003-11-14 10:23) [3]

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

ICQ Найти похожие ветки