chm帮助文档打开定位

procedure OPenHelpPge(const APageNme: string; const AHelpFileBm: string); stdcall;
var
  sTmp: string;
begin
  sTmp := Format('hh.exe mk:@MSITStore:%s%s::/%s', [CurrAppPath, AHelpFileBm, APageNme]);
  WinExec(PChar(sTmp), SW_SHOWMAXIMIZED);
end;使用上面code可以打开并定位到某个页面，但是当想多次打开并定位帮助文档时，我想只打开一次，如果已经打开了，把帮助文档置前，chm  打开，定位