Добавить в трей программу, без сторонних компонентов

Posted by Chas under Delphi

Учусь добавлять программу в трей, без использования компонентов сторонних.

unit Unit1;

interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, ShellApi;
const

WM_NOTIFYTRAYICON = WM_USER + 1;
type

  TForm1 = class(TForm)

    pm: TPopupMenu;

    Collapse1: TMenuItem;

    Close1: TMenuItem;

    procedure FormDestroy(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Close1Click(Sender: TObject);

    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

    procedure Collapse1Click(Sender: TObject);

  private

    procedure WMTRAYICONNOTIFY(var Msg: TMessage); message WM_NOTIFYTRAYICON;

  public

    { Public declarations }

  end;
var

  Form1: TForm1;

  Tray: TNotifyIconData;

  TrayIcon: TIcon;

  AppClose:Boolean=False;
implementation
{$R *.dfm}
procedure CollapseUnwrapToTray;

begin

  Form1.Visible:=not Form1.Visible;

  if Form1.Visible=True then Application.BringToFront;

end;
procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);

var p:TPoint;

begin

  case Msg.LParam of

    WM_LBUTTONUP:CollapseUnwrapToTray;

    WM_RBUTTONUP:

    begin

      GetCursorPos(p);

      SetForegroundWindow(Form1.Handle);

      pm.Popup(P.X, P.Y);

    end;

  end;

end;
procedure TForm1.FormDestroy(Sender: TObject);

begin

  try

  with tray do

  begin

    cbSize := TNotifyIconData.SizeOf;

    Wnd := Form1.Handle;

    uID := 1;

  end;

  Shell_NotifyIcon(NIM_DELETE, Addr(tray));

  finally

  Application.Terminate;

  end;

end;
procedure TForm1.FormCreate(Sender: TObject);

begin

  TrayIcon := Application.Icon;

  with tray do

  begin

    cbSize := TNotifyIconData.SizeOf;

    Wnd := Form1.Handle;

    uID := 1;

    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;

    uCallBackMessage := WM_NOTIFYTRAYICON;

    hIcon := TrayIcon.Handle;

    szTip := '3D Hunter';

  end;

  Shell_NotifyIcon(NIM_ADD, Addr(tray));

end;
procedure TForm1.Close1Click(Sender: TObject);

begin

  AppClose:=True;

  Form1.Close;

end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

  CanClose:=AppClose;

  if AppClose=False then CollapseUnwrapToTray;

end;
procedure TForm1.Collapse1Click(Sender: TObject);

begin

  CollapseUnwrapToTray;

end;
end.

тема на форуме

Похожие статьи

• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Отображение формы в трее
• Handle окна по файлу EXE
• При нажатии кнопки открыть сайт
• Получить время через интернет
• Сеть на ассемблере: проблема
• Получить иконку файла
• Как узнать пользовательскую директорию
• Запустить выбранные адреса в checklistbox
• Управление отображением рабочего стола Windows на нескольких экранах