myevent.rgs

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

HKCR
{
	Subscriber.MyEvent.1 = s 'MyEvent Class'
	{
		CLSID = s '{DA4D9E5A-04F2-4695-8CEA-7AD465B7BF40}'
	}
	Subscriber.MyEvent = s 'MyEvent Class'
	{
		CLSID = s '{DA4D9E5A-04F2-4695-8CEA-7AD465B7BF40}'
		CurVer = s 'Subscriber.MyEvent.1'
	}
	NoRemove CLSID
	{
		ForceRemove {DA4D9E5A-04F2-4695-8CEA-7AD465B7BF40} = s 'MyEvent Class'
		{
			ProgID = s 'Subscriber.MyEvent.1'
			VersionIndependentProgID = s 'Subscriber.MyEvent'
			ForceRemove 'Programmable'
			InprocServer32 = s '%MODULE%'
			{
				val ThreadingModel = s 'Apartment'
			}
			'TypeLib' = s '{B12845AB-10F7-4970-B919-1BE13DF9F8DC}'
		}
	}
}