Добавляем пункты в системное меню Windows

Delphi , Компоненты и Классы , Меню

Автор: MAD Rodrguez

Вы, наверное, задавались вопросом, почему системное меню постоянно одно и тоже ? Пример показывает, как добавить туда такие пункты как "About" или "Information", или что-нибудь ещё.

Нам понадобится две вещи, первая это Item ID, который может быть любым целым числом. Второе это Описание(Caption) для нашего пункта меню. Нам понадобится также процедура, которая будет принимать сообщения Window для определения нажатия на наш пункт меню.

Code:

Unit OhYeah; 

         

        Interface 

         

        Uses SysUtils, WinTypes, WinProcs, Messages, Classes,  Graphics, Controls, Forms, Dialogs, Menus; 

         

        Type 

          TForm1  = Class (TForm) 

             Procedure FormCreate (Sender : TObject); 

             Private {Private declarations} 

             Public {Public declarations} 

             Procedure WinMsg (Var Msg : TMsg; Var Handled : Boolean); 

             Procedure DoWhatEever; 

        End; 

         

        Var Form1 : TForm1; 

         

        Implementation 

        {$R  *.DFM} 

         

        Const ItemID = 99; // ID номер для пункта меню. Может быть любым 

         

        Procedure Tform1.WinMsg (Var Msg : TMsg; Var Handled : Boolean); 

        Begin 

             If Msg.Message = WM_SYSCOMMAND Then 

                If Msg.WParam = ItemID Then DoWhatEver; 

        End; 

         

        Procedure TForm1.FormCreate (Sender :  TObject); 

        Begin 

             Application.OnMessage := WinMsg; 

             AppendMenu (GetSystemMenu (Form1.Handle, False), MF_SEPARATOR, 0, ''); 

             AppendMenu (GetSystemMenu (Form1.Handle, False), MF_BYPOSITION, ItemID,  '&My  menu'); 

             AppendMenu (GetSystemMenu (Application.Handle, False), MF_SEPARATOR,  0, ''); 

             AppendMenu (GetSystemMenu (Application.Handle, False), MF_BYPOSITION,  ItemID,'&My menu  minimized'); 

        End; 

         

        Procedure TForm1.DoWhatEver; 

        Begin 

        Exit;     // Вы можете добавить  здесь всё, что угодно 

        End; 

         

        End

Взято из http://forum.sources.ru

В статье описывается, как добавить пункты в системное меню Windows с помощью программирования на языке Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Меню ::

Время компиляции файла: 2024-12-22 20:14:06
2025-06-16 08:52:57/0.0056800842285156/0