//IEのPathを得る関数
AnsiString getIePath(void)
{
 return getReg("\\Software\\Microsoft\\Windows\\CurrentVersion\\App Paths\\IEXPLORE.EXE","",HKEY_LOCAL_MACHINE);
}

//レジストリの情報を得る関数
AnsiString getReg(AnsiString Key, AnsiString Name,HKEY RootKey)
{
	AnsiString Value;
	TRegistry *rg = new TRegistry();
	rg->RootKey = RootKey;
	if(rg->OpenKey(Key,false)){
		if(rg->ValueExists(Name))
			Value = rg->ReadString(Name);
		rg->CloseKey();
	}
	rg->Free();
	return Value;
}