Кнопки в панели задач

Code:

// Это необходимо объявить в секции public в верхней части вашего pas-файла

procedure TForm1.IconCallBackMessage( var Mess : TMessage ); message WM_USER + 100;

procedure TForm1.FormCreate(Sender: TObject);

var

nid: TNotifyIconData;

begin

with nid do

begin

   cbSize := SizeOf(TNotifyIconData);

   Wnd := Form1.Handle;

   uID := 1;

   uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;

   uCallbackMessage := WM_USER + 100;

   hIcon := Application.Icon.Handle;

   szTip := 'Текст всплывающей подсказки';

end;

Shell_NotifyIcon(NIM_ADD, @nid);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var

nid: TNotifyIconData;

begin

with nid do

begin

   cbSize := SizeOf(TNotifyIconData);

   Wnd := Form1.Handle;

   uID := 1;

   uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;

   uCallbackMessage := WM_USER + 100;

   hIcon := Application.Icon.Handle;

   szTip := 'Текст всплывающей подсказки';

   // Все, что указано выше, не является обязательным

end;

Shell_NotifyIcon(NIM_DELETE, @nid);

end;

procedure TForm1.IconCallBackMessage(var Mess: TMessage);

var

sEventLog: string;

begin

case Mess.lParam of

   // Сделайте здесь все что вы хотите. Например,

   // вызов контекстного меню при нажатии правой кнопки мыши.

   WM_LBUTTONDBLCLK: sEventLog := 'Двойной щелчок левой кнопкой';

   WM_LBUTTONDOWN: sEventLog := 'Нажатие левой кнопки мыши';

   WM_LBUTTONUP: sEventLog := 'Отжатие левой кнопки мыши';

   WM_MBUTTONDBLCLK: sEventLog := 'Двойной щелчок мышью';

   WM_MBUTTONDOWN: sEventLog := 'Нажатие кнопки мыши';

   WM_MBUTTONUP: sEventLog := 'Отжатие кнопки мыши';

   WM_MOUSEMOVE: sEventLog := 'перемещение мыши';

   WM_MOUSEWHEEL: sEventLog := 'Вращение колесика мыши';

   WM_RBUTTONDBLCLK: sEventLog := 'Двойной щелчок правой кнопкой';

   WM_RBUTTONDOWN: sEventLog := 'Нажатие правой кнопки мыши';

   WM_RBUTTONUP: sEventLog := 'Отжатие правой кнопки мыши';

end;

end;