// 显示指定主题的帮助内容
procedure ShowHelp(const Topic: string);
var
Url: string;
si: TStartupInfo;
pi: TProcessInformation;
begin
//Url := GetTopicHelpUrl(Topic);
Url := Topic;
if Url <> '' then
begin
Url := 'mk
MSITStore:' + AppPath +'Help/'+Url;//AppPath应用程序路径
ZeroMemory(@si, SizeOf(si));
si.cb := SizeOf(si);
ZeroMemory(@pi, SizeOf(pi));
CreateProcess(nil, PChar('hh ' + Url),
nil, nil, False, 0, nil, nil, si, pi);
if pi.hProcess <> 0 then CloseHandle(pi.hProcess);
if pi.hThread <> 0 then CloseHandle(pi.hThread);
end;
end;