SystemTray

← →
Kirill_ (2001-12-13 02:15) [2]

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

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;

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

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