Вопрос № 77717: Здравствуйте, уважаемые эксперты! Вопрос до смешного простой: как в Delphi обозначается строковый параметр реестра "По умолчанию"? То есть что писать первым параметром в процедуре Registry.WriteString?...Вопрос № 77782: Здравствуйте уважаемые эксперты. У меня возникает вопрос. Можно ли сделать на Delphi оболочку для *.chm-файла. Чтобы в exe было приложение *.chm. Зараннее благодарен...
Вопрос № 77.717
Здравствуйте, уважаемые эксперты! Вопрос до смешного простой: как в Delphi обозначается строковый параметр реестра "По умолчанию"? То есть что писать первым параметром в процедуре Registry.WriteString?
Все очень просто, можно даже сказать интуитивно - параметр просто должен быть пустым (пустая строка)!!!
Пример:
Registry.WriteString('','xxx');
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 10.03.2007, 02:22
Вопрос № 77.782
Здравствуйте уважаемые эксперты. У меня возникает вопрос. Можно ли сделать на Delphi оболочку для *.chm-файла. Чтобы в exe было приложение *.chm. Зараннее благодарен
Отправлен: 10.03.2007, 19:12
Вопрос задал: SashaFAN (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: mvp
Здравствуйте, SashaFAN!
Раз такой вариант Вам подходит, тогда по порядку:
1) Кидаем Ваш chm-файл в директорию проекта;
2) Создаём текстовый файл с расширением *.rc (например, myres.rc) и пишем туда одну строчку:
MyHelp HELP help.chm
3) Компилируем его с помощью C:program filesorlanddelphiXinrcc32.exe (можно просто на myres.rc правой кнопкой мыши->открыть с помощью->выбрать вручную->обзор->(найти brcc32.exe). У Вас появится файлик компилированых ресурсов myres.res;
4) В главной форме проекта, после implementation пишем
{$R myres.res}
Теперь уже есть ресурс в Вашей программе.
5) Как извлечь и запустить:
var _: TResourceStream;
...
begin
....
_:= TResourceStream.Create(HInstance, 'MyHelp', 'HELP');
_.SaveToFile('help.chm');
_.Free;
ShellExecute(0, 'open', 'help.chm', nil, nil, SW_SHOW);
....
end;
6) В onDestroy главной формы пишем:
try
DeleteFile('help.chm')
except end;
P. S. Ещё в uses надо добавить ShellApi
--------- Моя совесть чиста - не бывшая в употреблении
Ответ отправил: mvp (статус: Студент)
Ответ отправлен: 11.03.2007, 18:51
