интерфейснутые классы

← →
Егорка (2009-11-18 14:47) [0]

здраствуйте!!!
есть ли в коле возможность определять как то так

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;

и если нет то как быть, это взято из демки расширения контекстного меню

← →
Егорка (2009-11-24 20:34) [1]

неушто никто не знает :(

← →
MTsv DN (2009-11-25 07:35) [2]

Так есть же файл KOLComObj.pas

← →
Егорка (2009-11-25 12:25) [3]

хм действително, тоесть работает вродекак в VCLe?

← →
MTsv DN (2009-11-25 18:09) [4]

> тоесть работает вродекак в VCLe?
Без понятия

интерфейснутые классы Найти похожие ветки