единица Umain;
интерфейс
Использование
Windows, сообщения, Sysutils, классы, графику, управления, формы, диалоги, Shellapi,
Меню, кнопки, extctrls;
констант
mousemsg = wm_user + 1;
IID = 100;
тип
Tform1 = class (tform)
Mainmenu1: tmainmenu;
Панель1: Tpanel;
Speedbutton1: tspeedbutton;
Speedbutton6: tspeedbutton;
Speedbutton7: tspeedbutton;
Speedbutton8: tspeedbutton;
Speedbutton9: tspeedbutton;
Speedbutton10: tspeedbutton;
POPUPMENU1: TPOPUPMENU;
exit1: tmenuitem;
Speedbutton2: tspeedbutton;
Процедура sqllmclick (отправитель: tobject);
Процедура n2click (отправитель: tobject);
Процедура SpeedButton1click (отправитель: Tobject);
Процедура FormClose (отправитель: tobject; var aect: tcloseaction);
Процедура FormCreate (отправитель: Tobject);
Процедура exit1click (отправитель: tobject);
частный
{Частные объявления}
Процедура MouseMessage (var Сообщение: tmessage); сообщение
mousemsg;
публичный
{Публичные объявления}
Процедура exec (отправитель: tobject);
конец;
вар
Форма1: tform1;
ntida: tnotifyicondataa;
выполнение
{$ R *.dfm}
Процедура tform1.mesemessage (var Сообщение: tmessage);
вар
мысли: tpoint;
начинать
унаследован;
Если сообщение.lparam = wm_rbuttonup, затем начните
GetCursporsos (Mousept);
popupmenu1.popup (mousept.x, mousept.y);
конец;
Если сообщение.lparam = wm_lbuttonup, затем начните
ShowWindow (Handle, SW_SHOW);
ShowWindow (Application.Handle, SW_SHOW);
SetWindowlong (application.handle, gwl_exstyle,
не (getWindowlong (Application.handle, GWL_Exstyle)
или ws_ex_toolwindow, а не ws_ex_appwindow));
конец;
Сообщение. -Result: = 0;
конец;
Процедура tform1.formClose (отправитель: tobject; var action: tcloseaction);
начинать
Действие: = canOne;
ShowWindow (Handle, SW_HIDE);
ShowWindow (Application.Handle, SW_HIDE);
SetWindowlong (application.handle, gwl_exstyle,
не (getWindowlong (Application.handle, GWL_Exstyle)
или ws_ex_toolwindow, а не ws_ex_appwindow));
конец;
Процедура tform1.formcreate (отправитель: tobject);
начинать
ntida.cbsize: = sizeof (tnotifyicondataa);
ntida.wnd: = handle;
ntida.uid: = iid; ntida.uflags: = nif_icon + nif_tip +
nif_message; ntida.ucallbackmessage: = mousemsg;
ntida.hicon: = Application.icon.handle;
ntida.sztip: = 'icon';
shell_notifyicona (nim_add, @ntida);
конец;
Процедура tform1.exit1click (отправитель: tobject);
начинать
ntida.cbsize: = sizeof (tnotifyicondataa);
ntida.wnd: = handle;
ntida.uid: = iid;
ntida.uflags: = nif_icon + nif_tip + nif_message;
ntida.ucallbackmessage: = mousemsg;
ntida.hicon: = Application.icon.handle;
ntida.sztip: = 'icon';
shell_notifyicona (nim_delete, @ntida);
Application.Terminate;
конец;
конец.