CHM Datei einbinden

[Blackheart]

Zu 1.
Speichere deine chm Datei in deinem Projektordner.
Dann nimmst Du Dir einen Text Editor und gibst folgendes ein

ReadMe RCDATA "ReadMe.chm"

Diese Datei speicherst Du ab als ReadMe.rc in deinem Projektordner.
Dann suche in Borland nach der Brcc32.exe liegt meistens im Bin Verzeichnis.
Kopiere die Exe und schiebe Sie in deinen Projektordner.
Dann Schiebe die ReadMe.rc Datei per Drag & Drop auf die Brcc32.exe
Dadurch wird eine ReadMe.res Datei erzeugt.

Dann binde unten stehenden Code in dein Projekt ein.
Nicht vergessen die Resource einzubinden {$S ReadMe.res}

Delphi-Quellcode:

implementation

{$R *.dfm}
{$R ReadMe.res}//Nicht vergessen

procedure TForm1.Button1Click(Sender: TObject);
var
  ResStream: TResourceStream;
begin
  ResStream := TResourceStream.Create(hInstance, 'ReadMe', RT_RCDATA);
  if not FileExists(ExtractFilePath(ParamStr(0)) + 'temp.chm') then ResStream.SaveToFile(ExtractFilePath(ParamStr(0)) + 'temp.chm');
  if  fileexists(ExtractFilePath(ParamStr(0)) + 'temp.chm') then
  ShellExecute(Handle, 'open',
  PChar(ExtractFilePath(ParamStr(0)) + 'temp.chm')
  , nil, nil, SW_SHOWNORMAl)
  else ShowMessage('Hilfedatei konnte nicht geladen werden !');
  ResStream.Free;
end;