| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
интерфейснутые классы [Delphi, Windows]
Егорка © (2009-11-18 14:47:00)здраствуйте!!!
есть ли в коле возможность определять как то так
type
TContextMenu = class(TComObject, IShellExtInit, IContextMenu)
private
FFileName: array[0..MAX_PATH] of Char;
protected
{ IShellExtInit }
function IShellExtInit.Initialize = SEIInitialize; // Avoid compiler warning
function SEIInitialize(pidlFolder: PItemIDList; lpdobj: IDataObject;
hKeyProgID: HKEY): HResult; stdcall;
{ IContextMenu }
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;
и если нет то как быть, это взято из демки расширения контекстного меню
MTsv DN (2009-11-25 18:09:00) [1]> тоесть работает вродекак в VCLe?
Без понятия
Егорка (2009-11-25 12:25:00) [2]хм действително, тоесть работает вродекак в VCLe?
MTsv DN (2009-11-25 07:35:00) [3]Так есть же файл KOLComObj.pas
Егорка (2009-11-24 20:34:00) [4]неушто никто не знает :(
| |
