Probleme mit HelpContext

[pmoegenb]

Ich machs immer so, wenn die Pfadangabe erforderlich wird:

Delphi-Quellcode:

private
    { Private-Deklarationen }
    HelpPfad: string;

procedure TForm1.FormCreate(Sender: TObject);
var
   Laenge: Integer;
begin
     Laenge := Length(ExtractFilePath(Application.ExeName));
     HelpPfad := copy(ExtractFilePath(Application.ExeName), 1,Laenge-1);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
     SetCurrentDir(HelpPfad);
     Application.HelpKeyword('Allgemeines');
end;