Создание меню "Пуск" в стиле Windows с элементами панели управления и их иконками в Delphi

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

Создание меню "Пуск" с элементами панели управления в Delphi

В данной статье мы рассмотрим, как можно создать меню "Пуск" в стиле Windows, которое будет включать в себя элементы панели управления и их иконки, используя язык программирования Object Pascal и среду разработки Delphi.

Получение списка элементов панели управления

Для начала необходимо получить список элементов панели управления. Это можно сделать, используя интерфейсы Windows Shell. Ниже приведен пример кода, который перечисляет элементы панели управления, получая их имена и иконки:

var
  psfDeskTop: IShellFolder;
  psfControl: IShellFolder;
  pidControl: PITEMIDLIST;
  pidChild: PITEMIDLIST;
  pidAbsolute: PItemIdList;
  pEnumList: IEnumIDList;
  celtFetched: ULONG;
  FileInfo: SHFILEINFOW;
begin
  OleCheck(SHGetDesktopFolder(psfDeskTop));
  OleCheck(SHGetSpecialFolderLocation(0, CSIDL_CONTROLS, pidControl));
  OleCheck(psfDeskTop.BindToObject(pidControl, nil, IID_IShellFolder, psfControl));
  OleCheck(psfControl.EnumObjects(0, SHCONTF_NONFOLDERS or SHCONTF_INCLUDEHIDDEN or SHCONTF_FOLDERS, pEnumList));

  while pEnumList.Next(1, pidChild, celtFetched) = 0 do
  begin
    pidAbsolute := ILCombine(pidControl, pidChild);
    SHGetFileInfo(LPCTSTR(pidAbsolute), 0, FileInfo, SizeOf(FileInfo), SHGFI_PIDL or SHGFI_DISPLAYNAME);
    // Здесь можно сохранить имя и иконку элемента
  end;
end;

Запуск элементов панели управления

Для запуска элемента панели управления необходимо использовать функцию ShellExecuteEx. Пример использования этой функции для запуска элемента панели управления:

var
  ShExeInfo : SHELLEXECUTEINFO;
begin
  ZeroMemory(@ShExeInfo, SizeOf(ShExeInfo));
  ShExeInfo.cbSize := SizeOf(ShExeInfo);
  ShExeInfo.lpVerb := 'Open';
  // PIDL элемента панели управления
  ShExeInfo.lpIDList := pidAbsolute;
  ShExeInfo.nShow := SW_SHOWNORMAL;
  ShExeInfo.fMask := SEE_MASK_IDLIST;
  ShellExecuteEx(@ShExeInfo);
end;

Создание меню "Пуск" с элементами панели управления

Используя полученные имена и иконки элементов панели управления, можно создать меню "Пуск" в стиле Windows. Для этого можно использовать компоненты, такие как TPopupMenu и TMenuItem, чтобы создать всплывающее меню с элементами, которые будут отображать элементы панели управления и их иконки.

Заключение

В этой статье мы рассмотрели, как получить список элементов панели управления и их иконки, а также как запустить эти элементы с помощью стандартных функций Windows. Используя эти знания, можно создать полнофункциональное меню "Пуск" в стиле Windows, которое будет включать элементы панели управления, доступные в вашей операционной системе.

Спасибо David Heffernan за помощь в решении этой задачи.

Создано по материалам из источника по ссылке.

В данной статье описывается процесс создания меню 'Пуск' в стиле Windows с элементами панели управления и их иконками, используя Delphi и Object Pascal.

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

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

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