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;