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

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

SystemTray [D3, Win95/98]

_SnAke_ ©   (2001-12-08 16:00:00) 

Как свернуть прогу в SystemTray

---

Kirill_   (2001-12-13 02:15:00) [1]

Это грамотней чем в книжках пишут - для себя делал :)))

procedure TForm1.FormCreate(Sender: TObject);
begin
with Tray do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Self.Handle;
uID := 100;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallBackMessage := WM_TRAY;
hIcon := Image1.Picture.Icon.Handle;
szTip := "Инспектор сети";
end;
Form1.Caption := "Инспектор сети";
Shell_NotifyIcon(NIM_ADD, @Tray);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Application.MessageBox("Завершить программу?","Инспектор сети",MB_OKCANCEL)<> IDOK
Then
Action := caNone
else
begin
Shell_NotifyIcon(NIM_DELETE, @Tray);
Action := caFree;
Application.Terminate;
end;
end;

procedure TForm1.MouseInTray(var Msg: TMessage);
var P: TPoint;
begin
if Msg.LParam = WM_RBUTTONDOWN then
begin
GetCursorPos(P);
SetForegroundWindow(Form1.Handle);
PopupMenu1.Popup(P.X, P.Y);
end;
if Msg.LParam = WM_LBUTTONDBLCLK then
begin
ShowWindow(Form1.Handle,SW_RESTORE);
SetForegroundWindow(Form1.Handle);
end;
Application.ProcessMessages;
end;

procedure TForm1.FormMinimize(var Msg: TMessage);
begin
inherited;
if Msg.WParam = SC_MINIMIZE then
begin
ShowWindow(Form1.Handle,SW_HIDE);
ShowWindow(Application.Handle, SW_HIDE);
end;
end;

procedure TForm1.Exit1Click(Sender: TObject);
var Action: TCloseAction;
begin
Action := caFree;
Form1.FormClose(Sender, Action);
end;

Ну у меня она называется "Инспектор сети"

---

Olgerd   (2001-12-08 19:01:00) [2]

Это прикол?
http://delphi.mastak.ru/articles/advises/index.html

---

Наверх