레지스트리 키 존재여부 체크

아래는 MyTcl 인스톨러에 사용된 코드.

	ClearErrors
	EnumRegKey $1 "${PRODUCT_UNINST_ROOT_KEY}" "${PRODUCT_UNINST_KEY}\Package" ""
	IfErrors 0 key_exist
		Goto key_no_exist
key_exist:
		MessageBox MB_ICONINFORMATION|MB_OK \
			"Package is installed in your system. please uninstall package(s) first."
		Abort
key_no_exist:
		; 설치 되어 있지 않으므로 진행