【delphi开源代码栏目提醒】：网学会员为广大网友收集整理了，frm_HeliRun.pas，希望对大家有所帮助！

    unit frm_HeliRun;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Menus, XPMan;
    
    type
      TFrmHelpRum = class(TForm)
        BtnRunHelp: TButton;
        BtnClose: TButton;
        MainMenu1: TMainMenu;
        N1: TMenuItem;
        N2: TMenuItem;
        N3: TMenuItem;
        N4: TMenuItem;
        N5: TMenuItem;
        Memo1: TMemo;
        XPManifest1: TXPManifest;
        procedure BtnRunHelpClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
      private
        dir:string;
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmHelpRum: TFrmHelpRum;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFrmHelpRum.BtnRunHelpClick(Sender: TObject);
    begin
      if FileExists(dir+'\help.hlp') then
        WinHelp(self.Handle,pchar(dir+'\help.hlp'),HELP_CONTENTS ,0)
      else
        Showmessage('没有发现帮助文件！请检查文件是否复制！');
    end;
    
    procedure TFrmHelpRum.FormCreate(Sender: TObject);
    begin
      getdir(0,dir);
    end;
    
    procedure TFrmHelpRum.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    end.