;use these functions to access your help file
Procedure SetHelpFile(HelpFile.s,Caption.s="")
  If Caption=""
    Caption.s=GetFilePart(ProgramFilename())
  EndIf
  HiniFile.s=GetPathPart(ProgramFilename())+"HelperApp.ini"
  OpenPreferences(HIniFile)
  WritePreferenceString("HelpFile",HelpFile)  
  WritePreferenceString("Title",Caption)
  ClosePreferences()
EndProcedure
Procedure GetHelp(context.s)
  ;CallDebugger
  ;context should be the actual target location (#TOP) as example
  GetPathPart(ProgramFilename())
  HiniFile.s=GetPathPart(ProgramFilename())+"HelperApp.ini"
  OpenPreferences(HIniFile)
  ;on the page
  WritePreferenceString("LASTHELP", context)
  WritePreferenceString("LASTTIME", "50")
  Caption.s=ReadPreferenceString("Title",GetFilePart(ProgramFilename()))
  ;Debug "String"+INI_ReadString("Helper", "HANDLE", "0" ) 
  HelpWindow=Val(ReadPreferenceString(  "HANDLE", "0" ))
  ClosePreferences()
  If HelpWindow
    If IsWindow_(HelpWindow)
      SetForegroundWindow_(HelpWindow)
      Delay(2000)
      ProcedureReturn
    Else
      Debug "Not a Window"
    EndIf    
  EndIf
   
  
  If RunProgram(GetPathPart(ProgramFilename())+"HelperApp.exe")=0
    MessageRequester(Caption,"Can't find help file"+Chr(10)+GetPathPart(ProgramFilename())+"HelperApp.exe",#MB_ICONSTOP)
    
  EndIf
  
EndProcedure
Procedure CloseHelper()
  GetPathPart(ProgramFilename())
  HiniFile.s=GetPathPart(ProgramFilename())+"HelperApp.ini"
  OpenPreferences(HIniFile)
  HelpWindow=Val(ReadPreferenceString(  "HANDLE", "0" ))
  WritePreferenceString("LASTTIME", "666")
  ClosePreferences()
  If HelpWindow
    If IsWindow_(HelpWindow)
      CloseWindow_(HelpWindow)      
    Else
      Debug "Not a Window"
    EndIf    
  EndIf
EndProcedure