就这模样,源码中的,呵呵,不知你的函数要做什么
IDispatch = interface(IUnknown)
['{00020400-0000-0000-C000-000000000046}']
function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
function GetIDsOfNames(const IID: TGUID; Names: Pointer;
NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
end;
IDispatch = interface(IUnknown)
['{00020400-0000-0000-C000-000000000046}']
function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
function GetIDsOfNames(const IID: TGUID; Names: Pointer;
NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
end;
解决方案 »
- win7 64位 控制面版不显示DELPHI7开发的 CPL文件
- delphi控件Twebbrower怎么获得网页的输入框,在输入框内填入信息并提交
- delphi 问题?
- 请 D7高人帮忙谢谢 ocx 中调用WORD, 菜单如何实现?? (在Form中的ole是可以部分实现的)
- ***********cxSpreadsheet 某个单元格禁止编辑的问题*************
- 关于调用无模式窗体的问题,请指教?
- 哪位仁兄帮忙写一句SQL啊!
- 如何在ListView中快速填入数据???
- 高分求解"版本控制"的方式!
- 把delphi的数据库转换成outlook中的通讯簿
- 有关listview的问题?
- foxbase环境下能把DBF文件转换成TAB分隔的文本文件吗?
(map as IInterfaceINeed).DoSomeThing;