![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Как открыть HTML страницу, спомощью нажатия кнопки ? Мне нужно привязать справку (HTML страницу), к приложению. HTMl страница хранится вместе с файлами программы.
|
|
#2
|
|||
|
|||
|
Воспользуйтесь функцией ShellExecute, например.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
hlpFilePath: string;
begin
hlpFilePath := ExtractFilePath(Application.ExeName) + 'Manual.html';
if FileExists(hlpFilePath) then
ShellExecute(Handle, PChar('Open'), PChar(hlpFilePath), nil,
PChar(ExtractFileDir(hlpFilePath)), SW_SHOWNORMAL);
end; |
|
#3
|
|||
|
|||
|
ага, в этом коде тоже ругается на ShellExecute
[Error] Unit2.pas(841): Undeclared identifier: 'ShellExecute' у меня был один простой кодик, я думал это в нем дело, оказалось что не в нем: ShellExecute(0, 'OPEN', './help/index.htm', PChar(''),'',1); |
|
#4
|
|||
|
|||
|
Необходимо подключить модуль ShellAPI!
o_O |
|
#5
|
|||
|
|||
|
Сделано , работает , спасибо !)
|