Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

SystemTray 


_SnAke_   (2001-12-08 16:00) [0]

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



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

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



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;

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




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.024 c
1-32183           Mitrofan              2002-01-25 11:39  2002.02.11  
Как синхронно скролировать два Memo or ListBox a


3-32150           Юлик                  2002-01-16 11:41  2002.02.11  
Фраза where в QUERY


7-32350           Dann                  2001-11-03 02:18  2002.02.11  
А можно-ли узнать количество Видео Памяти... установленной и свободной.. Заранее огромное спасибо.


4-32371           datch                 2001-12-14 10:06  2002.02.11  
Ярлыки Windows


3-32173           headhunter            2001-12-06 21:29  2002.02.11  
Хочу уйти от BDE. Помогите плиз