用ShellExecute调用chm文件时,怎么样实现一打开chm文件时就到指定的html中??
解决方案 »
- ListView的复选框
- raize中trzgroupbar设置问题
- 应该这么写吗?
- 为什么服务程序的任务栏图标会出现两个?不解
- 急,在線當即送分,科学记数法如何转换为普通格式,如9.02E-05 转换为0.0000902
- Borland是否还会推出Delphi的下一个版本呐?
- 继续讨论多条记录只让其显示一条的问题!SOS!!!
- 搞不清treeview1.Items.AddObject与treeview1.Items.Add的区别?
- 使用IDHTTP GET 方法怎么会陷进去的问题?
- 关于Variant的类型值
- 西安的delphi程序员注意!!!!
- 打包:wise或者Installshield的问题,我用BCB做了一个程序。用wise打包可是安装时提示出错
void __fastcall TForm1::MyHelp(Messages::TMessage &Message)
{
HELPINFO *HI = (HELPINFO*)Message.LParam;
TWinControl *WC;
TMenuItem *MI;
TMenu *Menu;
// 主菜单上传来的WM_HELP消息
if(HI->iContextType == HELPINFO_MENUITEM)
{
for(int i=0; i<this->ComponentCount; i++)
{
Menu = dynamic_cast<TMenu *>(this->Components[i]);
if(Menu != NULL)
{
MI = Menu->FindItem(HI->iCtrlId, fkCommand);
if(MI != NULL)
{
break;
}
}
}
if(MI != NULL && MI->HelpContext != 0)
{
HtmlHelp(this->Handle, Application->HelpFile.c_str(), HH_HELP_CONTEXT, MI->HelpContext);
}
else
{
HtmlHelp(this->Handle, Application->HelpFile.c_str(), HH_DISPLAY_TOPIC, 0);
} }
// 活动控件上传来的WM_HELP消息
else
{
WC = FindControl(HI->hItemHandle);
if(WC != NULL && WC->HelpContext != 0)
{
HtmlHelp(this->Handle, Application->HelpFile.c_str(), HH_HELP_CONTEXT, WC->HelpContext);
}
else
{
HtmlHelp(this->Handle, Application->HelpFile.c_str(), HH_DISPLAY_TOPIC, 0);
}
}
}