如何在 Visual FoxPro 中建立一個自訂 HTML 說明檢視器

   oMyHyperLink = NewObject("Hyperlink")
   cHelpPath = substr(Home(5), 1, Len(Home(5))-8)
   cVFPHelpTopicPath = "mk:@MSITStore:" + cHelpPath + ;
       "FOXHELP.CHM::/html/vfpstartpage.htm"
   oMyHyperLink.NavigateTo(cVFPHelpTopicPath)
				

   PUBLIC oMyHelpViewer

   oMyHelpViewer = NewObject("myhtmlhelpviewer")
   oMyHelpViewer.Show

   DEFINE CLASS myhtmlhelpviewer AS form
      Top = 0
      Left = 0
      Height = 454
      Width = 633
      DoCreate = .T.
      BorderStyle = 2
      Caption = "Custom HTML Help Viewer"
      MaxButton = .F.
      WindowState = 0
      Name = "Form1"

      ADD OBJECT olecontrol1 AS olecontrol WITH ;
         Top = 10, ;
         Left = 16, ;
         Height = 433, ;
         Width = 601, ;
         Name = "Olecontrol1", ;
         OLEClass = "Shell.Explorer.2"

      PROCEDURE olecontrol1.Refresh
         NODEFAULT
      ENDPROC

      PROCEDURE olecontrol1.Init
         cHelpPath = SubSTR(Home(5), 1, Len(Home(5))-8)
         cVFPHelpTopicPath = "mk:@MSITStore:" + cHelpPath + ;
                "FOXHELP.CHM::/html/vfpstartpage.htm"
         This.Navigate(cVFPHelpTopicPath)
      ENDPROC
   ENDDEFINE