Работа с chm в Delphi

[Fataller]

Добрый день. Необходимо в Delphi к кнопке прикруть файл chm со справкой. Делаю это этими двумя способами
ShellExecute(Application.Handle,'op en','help.chm',nil,nil,SW_SHOWNORMA L);
WinExec('hh.exe help.chm',SW_SHOW);
В WinAPI не силен, взял код с какого-то ресурса. Все открылось, все прекрасно. Но в моем приложении есть функция сворачивания в трей, и после того как это происходит, то справка не открывается. В чем может быть причина? Либо, если возможно, подскажите какой-либо альтернативный удобный способ вызова справки. Заранее спасибо

[s.Creator]

Сообщение от Fataller

...Все открылось, все прекрасно. Но в моем приложении есть функция сворачивания в трей, и после того как это происходит, то справка не открывается. В чем может быть причина?...

Не открывается когда приложение свернуто в трей?
и по какому событию пытаешься открыть? (F1 ?)

[Fataller]

У меня главная форма. На ней есть кнопка Справка. Я запускаю проект, щелкаю по этой кнопке, все прекрасно. Затем я сворачиваю приложение в трей, опять разворачиваю, щелкаю по "Справке"-и ничего.

[s.Creator]

Возможно не совсем правильно разворачиваешь приложение обратно.
Попробуй без Application.Handle

ShellExecute(nil,'open','help.chm', nil,nil,SW_SHOWNORMAL);

[Fataller]

[Error] Unit1.pas(96): Incompatible types: 'HWND' and 'Pointer' - ошибка, не компилится даже

[s.Creator]

виноват

ShellExecute(0,'open','help.chm', nil,nil,SW_SHOWNORMAL);

[Ntlegend]

попробуй вместь Application.Handle просто Handle

[Kotofff]

Application.Handle, Handle и 0 первым параметром в ShellExecute - это одно и тоже - дискриптор текущего приложения, т.е. твоя программа.

При сворачивании в трей основной программы файл справки остается запущен ?
Может быть он у тебя сворачивается вместе с программой, а при показе программы не показывается ? Хотя тут должна запускаться другая копия файла справки.
Для сворачивания в трей какими компонентами пользуешься ?

[Fataller]

Для сворачивания в трей пользуюсь CoolTrayIcon

[Ntlegend]

попробуй так..
ShellExecute(0, nil, PChar('полный_путь_к_файлу'), nil, PChar(ExtractFilePath('полный_путь_ к_файлу')), 1)