Задание справочного файла для приложения

← →
SPeller © (2002-06-23 08:35) [0]

Всем добро времени суток! Чем Дельфи не нравится такой код:

st:=Extractfilepath(Application.Exename)+"MyHelp.hlp";
application.HelpFile:=st;

Кнопка запуска запуска приложения вообще гаснет и F9 не работает. Хотя если проект скомпилить на Ctrl+F9 то программа отлично работает. Чем можно дать понять Дельфям что всё хорошо работает?

← →
Юрий Зотов © (2002-06-23 09:02) [1]

Код вполне нормальный (правда, переменная St явно лишняя, но это не так важно). Похоже, программа все же запускается (поэтому и кнопка Run гаснет, и F9 не работает - ведь программа уже запущена).

Попробуйте убрать этот код совсем и просто прописать файл хелпа в опциях проекта.

← →
SPeller © (2002-06-23 09:23) [2]

Да, если прописать явно, например

application.HelpFile:="C:\MyHelp.hlp";

то всё будет нормально. А если заранее неизвестно где будет лежать файл справки или их надо будет менять, или ещё чего?

← →
Юрий Зотов © (2002-06-23 11:14) [3]

Пропишите без пути, просто имя файла. И кладите его в каталог самого Exe. Там WinHelp его и найдет.

← →
SPeller © (2002-06-23 14:09) [4]

Вот же блин Дельфя вредная... :)

← →
Роман Василенко © (2002-06-24 09:46) [5]

2SPeller: Не знаю, будешь ли смотреть этот форум...
На всякий случай, продублирую письмом.

Фишка вот в чем:

Например у тебя проект живет в каталоге:
c:\delphi5\projects\myprj\

Когда ты делаешь:

st:=Extractfilepath(Application.Exename)+"MyHelp.hlp";
application.HelpFile:=st;

у тебя получается c:\delphi5\projects\myprjMyHelp.hlp

Так что делай:
st:=Extractfilepath(Application.Exename)+"\MyHelp.hlp";

2 Роман Василенко © (24.06.02 09:46)
Так что делай:
st:=Extractfilepath(Application.Exename)+"\MyHelp.hlp";

И получится C:\Delphi5\Projects\MyPrj\\MyHelp.hlp

Extractfilepath(Application.Exename) вернёт C:\Delphi5\Projects\MyPrj \. В конце будет слэш!

Ну, могу посоветовать еще вариант. Беспроигрышный.

st:=includetrailingbackslash(extractfilepath(application.exename))+"myhelp.hlp";

Хотя, кажется в Д6 includetrailingbackslash заменено на что-то другое...

Задание справочного файла для приложения Найти похожие ветки