Hilfe in Delphi einbinden .chm

Hallo hoffe das ich hier richtig bin mit meiner Frage.

Versuche schon seit 2 Tagen die Hilfe in Delphi ein zu binden lau der Anleitung

HTML Hilfe in Delphiund komme nicht weiter.

Habe alles so gemacht wie dort beschrieben aber er öffnet mir die Hilfe im Programm nicht weder per HelpContex oder per Button.

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls,hh, hh_funcs, D6OnHelpFix;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

  mHHelp: THookHelpSystem;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Application.HelpContext(1001);

end;

procedure TForm1.FormCreate(Sender: TObject);

var chmFile: string;

begin

  chmFile := ExtractFilePath(ParamStr(0))+'Hilfe\ETW_Hilfe.chm';

  mHHelp := nil;

  if not FileExists(chmFile) then

    ShowMessage('Hilfe-Datei nicht gefunden'#13+chmFile);

  {HH 1.2 oder höher Versionskontrolle}

  if (hh.HHCtrlHandle = 0)

    or (hh_funcs._hhMajVer < 4)

    or ((hh_funcs._hhMajVer = 4) and (hh_funcs._hhMinVer < 73)) then

      ShowMessage('Diese Anwendung erfordert die Installation der '+

      'MS HTML Help 1.2 oder höher');

  {Hook - verwendet HH_FUNCS.pas}

  mHHelp := hh_funcs.THookHelpSystem.Create(chmFile, '', htHHAPI);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

HHCloseAll; // Schließt alle Hilfe-Fenster

  if Assigned(mHHelp) then

    mHHelp.Free;

end;

end.

Habe auch die Dateien eingebunden siehe "uses hh, hh_funcs, D6OnHelpFix" mein Prgramm bringt mir auch keine Fehler. Habe auch getestet ob er die Hilfe Datei findet

markieren

Delphi-Quellcode:

			if not FileExists(chmFile) then

    ShowMessage('Hilfe-Datei nicht gefunden'#13+chmFile);

Bei den HTML Workshop habe ich auch alles beachtet. Wenn ich direkt auf die .chm clicke geht die Hilfe auf.

Weiß einfach nicht mehr weiter und hoffe ihr könnt mir Helfen. Ich bedanke mich im Voraus mfg Sunny

Hilfe in Delphi einbinden .chm

Hilfe in Delphi einbinden .chm

Forumregeln