myevent.rgs

来自「中间件编写示例 COM与.NET组件服务」· RGS 代码 · 共 27 行

HKCR
{
	EventClass.MyEvent.1 = s 'MyEvent Class'
	{
		CLSID = s '{66D88CB1-51D4-4396-B5D4-680B9FAC3077}'
	}
	EventClass.MyEvent = s 'MyEvent Class'
	{
		CLSID = s '{66D88CB1-51D4-4396-B5D4-680B9FAC3077}'
		CurVer = s 'EventClass.MyEvent.1'
	}
	NoRemove CLSID
	{
		ForceRemove {66D88CB1-51D4-4396-B5D4-680B9FAC3077} = s 'MyEvent Class'
		{
			ProgID = s 'EventClass.MyEvent.1'
			VersionIndependentProgID = s 'EventClass.MyEvent'
			ForceRemove 'Programmable'
			InprocServer32 = s '%MODULE%'
			{
				val ThreadingModel = s 'Apartment'
			}
			'TypeLib' = s '{03D4D0DA-D32F-4826-9CB5-2429D8883C5E}'
		}
	}
}