1.
uses ShellAPI;
ShellExecute(0, 'open', 'Your.chm', nil, nil, SW_SHOW);
2.
try
HTMLHelp(Handle,
ExtractFilePath(Application.ExeName) + Your.chm',
HH_DISPLAY_TOPIC,
nil);
except
...
end;
uses ShellAPI;
ShellExecute(0, 'open', 'Your.chm', nil, nil, SW_SHOW);
2.
try
HTMLHelp(Handle,
ExtractFilePath(Application.ExeName) + Your.chm',
HH_DISPLAY_TOPIC,
nil);
except
...
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货