mysort.rgs

来自「VC.net 的一些有用的技巧」· RGS 代码 · 共 28 行

HKCR
{
	ATLSort.MySort.1 = s 'MySort Class'
	{
		CLSID = s '{B30B34C4-1708-4A82-A322-62AE5D711EBF}'
	}
	ATLSort.MySort = s 'MySort Class'
	{
		CLSID = s '{B30B34C4-1708-4A82-A322-62AE5D711EBF}'
		CurVer = s 'ATLSort.MySort.1'
	}
	NoRemove CLSID
	{
		ForceRemove {B30B34C4-1708-4A82-A322-62AE5D711EBF} = s 'MySort Class'
		{
			ProgID = s 'ATLSort.MySort.1'
			VersionIndependentProgID = s 'ATLSort.MySort'
			ForceRemove 'Programmable'
			InprocServer32 = s '%MODULE%'
			{
				val ThreadingModel = s 'Apartment'
			}
			val AppID = s '%APPID%'
			'TypeLib' = s '{B626E140-5C21-47D2-8BFA-9E1D7678A226}'
		}
	}
}