Hab`s schnell selber gebastelt.
Es geht ganz einfach und ist genial und ohne Fehlermeldung:
Delphi-Quellcode:
procedure TForm1.ffnen1Click(Sender: TObject);
var
chm: string;
begin
ShellExecute(Application.Handle,'open','Help.chm',nil,nil,SW_SHOW);
end;
Jetzt bin ich ganz Stolz...
Jetzt muss ich mich belohnen (Kaffe&Camel)