📄 uaggreobj.pas
字号:
unit uAggreObj;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
Windows, ActiveX, Classes, ComObj, pAggregateDemo_TLB, StdVcl;
type
TAggreObj = class(TTypedComObject, IAggreObj)
protected
function GetInnerName(var sName: WideString): HResult; stdcall;
{Declare IAggreObj methods here}
end;
implementation
uses ComServ;
function TAggreObj.GetInnerName(var sName: WideString): HResult;
begin
Result := S_OK;
end;
initialization
TTypedComObjectFactory.Create(ComServer, TAggreObj, Class_AggreObj,
ciMultiInstance, tmBoth);
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -