Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Открытие файла справки при клике

Автор: Кит 25.12.2005, 13:29

Имеется кнопка вызовы "Справки" (Help.hlp)
Что на нее нужно повесить чтобы этот файл справки открывался

Автор: iddqd 25.12.2005, 16:40

Просто открыть какой-то файл?
ShellExecute?

Автор: Кит 25.12.2005, 16:44

Цитата

Просто открыть какой-то файл?

нужно открыть Help.hlp

Автор: iddqd 25.12.2005, 17:01

Кит, какая разница. Хоть autoexec.bat ShellExecute используй.

Автор: FRAGNATIC 25.12.2005, 19:07

причём тут базы данных?

Автор: Кит 25.12.2005, 20:33

так и ничего не понял с этим ShellExecute
А дальше что с ним делать? Где указывать файл, который я хочу открыть

Код


procedure TMainForm.HelpClick(Sender: TObject);
begin

end;

Автор: Albinos_x 25.12.2005, 21:41

к примеру так:

Код


var fs:string;
    H:HWND;
begin
fs:=ExtractFilePath(Application.ExeName)+'Help\Help.chm';
if (FileExists(fs)) then
   ShellExecute(h,'open',pChar(fs),NIL,NIL,SW_SHOWNORMAL)
   else
   MessageDlg('Файл справки не найден',mtInformation,[mbOK],0);

Автор: Кит 26.12.2005, 00:10

В чем проблема??? Пишу

Код


procedure TMainForm.N4Click(Sender: TObject);
var fs:string;
H:HWND;
begin
fs:=ExtractFilePath(Application.ExeName)+'Help\Help.chm';
if (FileExists(fs)) then
ShellExecute(h,'open',pChar(fs),NIL,NIL,SW_SHOWNORMAL)
else
MessageDlg('Файл справки не найден',mtInformation,[mbOK],0);
end;

Выдает ошибку : Undeclared identifier:'ShellExecute'

А вообще мне нужно открать файл *.doc

Автор: FRAGNATIC 26.12.2005, 00:24

Кит

Цитата

А вообще мне нужно открать файл *.doc

РАЗНИЦЫ НЕТУ тебе уже сказали ты просто указываешь какой файл и всё )

Цитата

Выдает ошибку : Undeclared identifier:'ShellExecute'

подключи в USES модуль ShellAPI smile

Автор: Кит 26.12.2005, 01:39

Mechanic, ура все работает. Спасибо Всем

Автор: Guedda 27.12.2005, 16:14

А можно проще...

Код


Applcation.HelpFile := 'Help.hlp';
Application.HelpCommand(HELP_OPEN, 0);

Автор: Гость_Waterman 29.12.2005, 00:09

Можно так, тоже работает.

Код


procedure TForm1.Button6Click(Sender: TObject);
begin
Application.HelpFile := ExtractFilePath(Application.ExeName) + 'Help.hlp';

Application.HelpCommand(HELP_CONTENTS, 0);  

end;