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-файл на виході.


 

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

66061. Региональные финансы Омской области 2007-2011года 47 KB
  Расходы капитального характера в текущем году оцениваются в 207 от общих расходов областного бюджета. Минфин региона отчитался об исполнении областного бюджета за девять месяцев 2008 года На заседании регионального Правительства Министерство финансов региона представило отчет об исполнении областного бюджета за девять месяцев 2008 года.
66063. Всемирная торговая организация и РФ 32.5 KB
  Россия стала членом ВТО 22 августа 2012 года. Конкретными целями присоединения для России можно считать следующие: Получение лучших в сравнении с существующими и недискриминационных условий для доступа российской продукции на иностранные рынки; Доступ к международному механизму разрешения торговых споров...
66064. Эволюция финансовой системы 15.65 KB
  Подходы к определению финансовой системы также разнообразны. Так например представители англо-американской финансовой школы Т. Мнение других а также российских учёных состоит в том что сущность финансовой системы страны раскрывается через...
66065. Свободные экономические зоны РФ 39.5 KB
  Одной из важнейших форм экономических связей являются свободные экономические зоны СЭЗ. Через свободные экономические зоны проходит около 10 мирового товарооборота причем темпы роста в них объемов экспорта и импорта весьма высоки.
66066. Национальные и региональные инвестиционные проекты РФ. Инвестиционные программы Омска 45.83 KB
  Согласно действующему законодательству инвестиционная деятельность на территории РФ может финансировать за счет: собственных финансовых ресурсов и внутрихозяйственных резервов инвестора (прибыль, амортизационные отчисления, денежные накопления и сбережения граждан и юридических лиц...
66067. Всемирный банк 38.27 KB
  В настоящее время под Всемирным банком фактически понимают две организации: Международный банк реконструкции и развития Международная ассоциация развития В разное время к ним присоединились созданные для решения задач Всемирного банка ещё три организации...
66068. Бюджетный дефицит в период до 1990 года 34.5 KB
  Падение объема производства естественно привело к сокращению доходной базы бюджета. Уклонение от налогов в условиях несовершенства налогового законодательства и существующего в обществе отношения к обязательности налоговых платежей...
66069. Бюджетный дефицит в зарубежных странах 32.5 KB
  Бюджетный дефицит в США Дефицит федерального бюджета США в 20112012 финансовом году завершившемся 30 сентября с. По сравнению с прошлым финансовым годом дефицит бюджета сократился на 16 в 2010-2011 финансовом году он составлял 1299 трлн долл.