38221

Робота з системним контекстним меню

Лабораторная работа

Информатика, кибернетика и программирование

Дана робота багато в чому нагадує попередню роботу. Вам також потрібно створити власний СОМ-об’єкт, для обробки контекстного меню (системне контекстне меню – це меню, яке випадає при натиску на праву кнопку миші).

Украинкский

2014-11-30

59.5 KB

1 чел.

Лабораторна робота №5

Тема: Робота з системним контекстним меню.

Хід роботи

Дана робота багато в чому нагадує попередню роботу. Вам також потрібно створити власний СОМ-обєкт, для обробки контекстного меню (системне контекстне меню – це меню, яке випадає при натиску на праву кнопку миші).

Отже, так як і в попередній роботі створюємо ActiveX-бібліотеку та СОМ-об’єкт в цій бібліотеці (не називайте об’єкт   ContextMenu – це може призвести до проблем з назвами інтерфейсів). Під’єднайте модулі ShlObj, ShellAPI,  SysUtils, Registry.

Для роботи з меню ваш об’єкт повинен унаслідувати два інтерфейси - IShellExtInit, IContextMenu. З цих двох інтерфейсів вам клас повинен реалізувати чотири методи. Ось так приблизно має виглядати ваш клас:

 TConMenu = class(TTypedComObject, IShellExtInit, IContextMenu)

 protected

   FFileName:array[0..MAX_PATH] of char;

   FMenuIndex:UINT;

   

  function Initialize(pidlFolder: PItemIDList; lpdobj: IDataObject;

     hKeyProgID: HKEY): HResult; stdcall;

  function QueryContextMenu(Menu: HMENU;

      indexMenu, idCmdFirst, idCmdLast, uFlags: UINT): HResult; stdcall;

  function InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult; stdcall;

  function GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;

     pszName: LPSTR; cchMax: UINT): HResult; stdcall;

 end;

Функція Initialize оголошена в інтерфейсі IShellExtInit. Призначена для початкової ініціалізації меню. В основному використовується для визначення файлів, для яких викликане контекстне меню. Нас буде цікавити тільки другий параметр, за допомогою якого можна отримати список файлів. Реалізація даної функції представлена нижче:

function TConMenu.Initialize(pidlFolder: PItemIDList; lpdobj: IDataObject;

 hKeyProgID: HKEY): HResult;

var

Medium:TStgMedium;

FE:TFormatEtc;

begin

// На всяк випадок перевыряємо, чи передано вказівник  

if lpdobj=nil  then

   begin

     Initialize:=E_FAIL;

     exit;

   end;

//Структура запиту

FE.cfFormat:=CF_HDROP;

FE.ptd:=nil;

FE.dwAspect:=DVASPECT_CONTENT;

FE.lindex:=-1;

FE.tymed:=TYMED_HGLOBAL;

lpdobj.GetData(FE,Medium);

if DragQueryFile(Medium.hGlobal,$FFFFFFFF,nil,0)=1 then

  begin

   DragQueryFile(Medium.hGlobal,0,FFileName,sizeof(FFileName));

   Initialize:=NOERROR;

  end else Initialize:=E_FAIL;

    ReleaseStgMedium(medium);

end;

Хоча і здається, що реалізація даної функції складна – насправді все просто. Параметр lpdobj – це вказівник на реалізацію інтерфейса IDataObject, з якого нас цікавить тільки метод GetData. За допомогою даного методу можна отримати вказівник на список файлів. Перший параметр – це структура, яка описує формат запиту(що це таке і з чим його їдять довго описувати – використовуєте такий запис я к і в роботі), а другий  - структура (TStgMedium) в яку повертається опис списку.

Із структури TStgMedium назви файлів вибираються за допомогою функції DragQueryFile. Перший параметр  - ідентифікатор структури, що містить список файлів, другий параметр – номер файлу в списку, третій – вказівник, куди буде повертатись строкове значення назви файлу (рядок має бути описаний як масив символів – опис С++. Тому в класі і описане поле FFileName, як масив символів. Це поле і буде зберігати назву файлу для подальшої роботи). Четвертий параметр – розмір масиву, куди буде записуватись назва файлу. Якщо дану функцію викликати і другий параметр при цьому задати як $FFFFFFFF – то функція повертає к-сть файлів у списку. Як видно з прикладу – ми обробляємо, чи виділений один файл. І наша функція призначена для роботи з одним файлом.

Метод Initialize повинен повертати значення NOERROR якщо помилок немає, або E_FAILв противному випадку. Повернення певних значень – є обов’язковою умовою.

Наступний метод – QueryContextMenu. Призначений для редагування контекстного меню. В даному методі можна додавати нові пункти меню. Реалізація даного методу наступна:

function TConMenu.QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst,   idCmdLast, uFlags: UINT): HResult;

begin

 FMenuIndex:=indexMenu;

 InsertMenu(Menu,FMenuIndex ,MF_STRING or MF_BYPOSITION, idCmdFirst,Новий пункт…' );

 QueryContextMenu:=FMenuIndex+1;

end;

 

 Перший параметр – це ідентифікатор меню, другий – номер пункту меню(починаючи з нуля), після якого можна вставити власний пункт меню. Третій та четвертий параметри – мінімальне та максимальне значення ідентифікатора даного пункту меню (використовується в основному при створенні підменю) , останній параметр  - це певні флаги.

Індекс меню потрібно зберегти, для подальшого використання. Даний індекс і зберігається в полі FMenuIndex. Вставка власного пункту відбувається за допомогою функції InsertMenu. Перший параметр – це ідентифікатор меню, другий  - номер пункту, після якого новий пункт буде встановлений, третій  - флаги встановлення (використовуйте вказані), четвертий – додаткові параметри (використано мінімальне значення ідентифікатора – хоча в подальшому ми не будемо його обробляти), останній параметр – рядок, що буде доданий в меню. Функція повинна повернути значення на одиницю більше ніж вхідне значення номера пункту меню (вхідний параметр indexMenu).

Далі потрібно реалізувати метод GetCommandString. Ця функція викликається системою при отриманні довідкового рядка, про даний пункт меню. Реалізація наступна:

function TConMenu.GetCommandString(idCmd, uType: UINT; pwReserved: PUINT;  pszName: LPSTR; cchMax: UINT): HResult;

begin

// Перевіряємо, чи вибрано наш пункт меню

 if FMenuIndex=idCmd then

  begin

  StrLCopy(pszName,’Новий пункт меню…',cchMax);

  GetCommandString:=S_OK;

  end

   else GetCommandString:=E_INVALIDARG;

end;    

Суть реалізації наступна – у вихідний параметр pszName – потрібно записати значення, яке і буде довідниковим рядком, що і робить функція  StrLCopy. Звичайно потрібно перевірити, чи дійсно вибраний наш пункт меню – для цього потрібно перевірити значення параметра idCmd – в якому зберігається ідентифікатор пункту меню. Функція повинна повернути значення S_OK, при нормальному виконанні, або E_INVALIDARG в противному.

 Остання функція – InvokeCommand, викликається, коли конкретно  вибрано пункт меню. Її реалізація наступна:

function TConMenu.InvokeCommand(var lpici: TCMInvokeCommandInfo): HResult;

begin

if LoWord(lpici.lpVerb)=FMenuIndex  then

  begin

   // Код виконан, ня пункту меню 

   .

   .

  .

    InvokeCommand:=S_OK;

  end else InvokeCommand:=E_FAIL;

end;

Вхідний параметр тільки один – структура lpici типу TCMInvokeCommandInfo, яка описує системну інформацію при виклику меню. В даній структурі нас цікавить тільки молодше слово поля lpVerb, в якому зберігається номер пункту меню. Його і порівнюємо із значенням, яке зберігається в полі FMenuIndex і описуємо код виконання. Також може бути потрібне значення поля lpici.hWnd вхідної структури. В цьому полі зберігається ідентифікатор меню, і дане значення може бути використане при виклику системних функцій (наприклад – функція показу повідомлення MessageBox. Перший параметр даної функції – ідентифікатор вікна. В якості цього параметра можна використати і значення ідентифікатора меню).

З самим класом все – тепер потрібно лише зареєструвати його в системі. Як і в попередній роботі потрібно створити фабрику класів. В принципі технологія аналогічна попередній роботі лише з деякими змінами. Наш клас потрібно зареєструвати в реєстрі в наступній вітці

HKEY_CLASSES_ROOT\*\shellex\ContextMenuHandlers\

 Якщо зареєструєте клас в даній вітці, то ваш пункт меню буде зявлятись при виклику меню для всіх файлів. Якщо ж замість знаку ‘*’ записати розширення файлу з знаком ‘.’перед ним, то ваш пункт меню буде тільки для файлів з конкретним розширенням. Наприклад, якщо ваш клас зареєстрований в у вітці

HKEY_CLASSES_ROOT\.asm\shellex\ContextMenuHandlers\

то ваш пункт меню буде з’являтись тільки для фалів з розширенням asm.

Фабрика класів оголошена наступним чином:

 TContexMenuFactory=class(TComObjectFactory)

 protected

  function GetProgID:string;override;

  procedure ApproveShellExtension(Register:boolean; const ClsID:string);virtual;

 public

   procedure UpdateRegistry(Register:boolean);override;

 end;

Реалізація даного класу майже однакова з попередньою роботою. Зміни тільки в процедурі UpdateRegistry. Її реалізація наступна

procedure TContexMenuFactory.UpdateRegistry(Register: boolean);

var

Clsid:string;

begin

 Clsid:=GUIDToString(ClassID);

 inherited UpdateRegistry(Register);

 if Register then

   begin

     CreateRegKey('*\shellex\ContextMenuHandlers\'+ClassNAme,'',Clsid);

   end else

   begin

     DeleteRegKey('*\shellex\ContextMenuHandlers\'+ClassNAme);

   end;

end;

Відповідно і виклик даної фабрики ідентичний.

Як і в попередній роботі – на виході в нас отрималась бібліотека динамічного підключення. Її зареєструвати в системі можна, або таким же чином як і в попередній роботі, або за допомогою команди regsvr32 шляхом виклику її з командного рядка. Параметром даної команди є назва DLL-бібліотеки. Для відключення бібліотеки – команда таж сама, з назвою бібліотеки, але з параметром /u.

Завдання:

На 9 балів: Розробити власну бібліотеку, яка додає новий пункт в системне контекстне меню. При натиску на цей пункт виводиться системне вікно з написом «Hello world !!!»

На 10 балів: Аналогічна попередньому завданню, але виводиться назва файлу, для якого визвано контекстне меню.

На 11 балів: Меню реєструється тільки для файлів з розширенням asm. Має додатись пункт – «відкомпілювати». При натиску на цей пункт – має запуститись компілятор та лінкер, для вибраного файлу. Відповідно результат – EXE-файл на виході.


 

А также другие работы, которые могут Вас заинтересовать

76058. Создание автоматизированной информационной системы для фирмы «Удача» 1.84 MB
  Выявляются наиболее важные компоненты деятельности данной фирмы: Сотрудники – в их обязанности входит составление каталога рассылка каталога оформление заказов продажи оформление счетов и накладных решение бухгалтерских задач реклама а также внесение информации в базу данных.
76059. Прогнозирование оценки за экзамен 3.5 MB
  Целью моей работы: показать можно ли использовать нейронные сети и эффективно ли их применение в данной области. Полносвязанной нейронной сетью называется многослойная структура в которой каждый нейрон произвольного слоя связан со всеми нейронами предыдущего слоя а в случае первого слоя со всеми входами нейронной сети.
76060. Право: понятие, характеристика, признаки, принципы 58.5 KB
  Разграничение права и закона имеет большой гуманистический смысл ибо тогда право рассматривается как критерий качества закона установления того насколько последний признаёт права человека его интересы и потребности.
76061. Антропогенный морфогенез в границах ландшафтов Рязанской области 7.5 MB
  Максимальный показатель антропогенной нагрузки характерен для ландшафтов с чехлом покровных суглинков залегающих на неогеновых песках см. Показатель антропогенной нагрузки изза гражданского строительства здесь ниже но все же достаточно высок и составляет 5 359 295 м3.
76062. Бизнес-план фирмы «ДомМаркет» 70.92 KB
  Предприятия малого бизнеса являются гибкой и динамичной формой реализации предпринимательской деятельности позволяющей свободно выразить деловой и творческий потенциал иметь определенные заработки для достойного образа жизни.
76065. Проектирование структурированной кабельной системы ООО «Прокуратов» 1.21 MB
  Вышеперечисленные стандарты описывают почти одинаковые кабельные системы; но несколько различаются в терминологии и определениях норм для родственных параметров. Кроме терминологии, в этих стандартах имеются различия в списке применимых кабелей: в 1568-А определен коаксиальный кабель 50 Ом...
76066. Внедрение многофункциональной системы «R-keeper» в Группу компаний «ПИР» в частности в ресторан «Корчма. Веселая Кума» 2.84 MB
  Задачи проекта: Автоматизация ресторанов позволяет повысить контроль над всеми процессами протекающим в ресторане, начиная от закупок, заканчивая очерёдностью подачи блюд. Система r keep позволяет ускорить подачу блюд, автоматизировав этапы прохождения заказа от клиента до кухни.