23.10.2006, 16:06
общий
это ответ
Здравствуйте, Томша Павел!
Так как chm - это файл, который открывается с помощью другой программы (hh.exe), то его надо сначала извлечь, а потом открыть.
Извлечение файла:
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
Res : TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
Res.SavetoFile(ResNewName);
Res.Free;
end;
Запуск:
ShellExecute(0, nil, pchar(‘hh.exe‘),‘Help.Chm‘, nil, SW_SHOWNORMAL)
Добавьте в uses модуль shellapi.