Справка

[Наталья111]

У меня на главной форме меню есть пункт "Справка". При нажатии на него необходимо вывести справку скомпилированную для делфи hlp. Как открыть ее через пункт меню "Справка"? Надо веть прописывать код?
вот написала.
он мне выводит ошибку: undeclared identifier: 'ShellExecute'. (неописанный индетификатор.)
Где его надо описать и как? просто к ShellExecute присвоить тип. Или что?
ShellExecute - это же процедура (функция)?

procedure TForm1.N2Click(Sender: TObject);
begin
ShellExecute(0, NIL, 'C:\Documents and Settings\Admin\Рабочий стол\Программирование\Копия Лабораторная работа №4\sqrt_lab4.chm', NIL, NIL, SW_RESTORE));
end;

[KORN]

уже лучше, поздравляю... сама пытаешься разобраться...
добавь в Uses ShellApi;

procedure TForm1.N2Click(Sender: TObject);
begin
ShellExecute(0, 'Open', Pchar(extractfilepath(application.e xename)+'sqrt_lab4.chm'), NIL, NIL, SW_SHOWNORMAL));
end;

Pchar(extractfilepath(application.e xename)+'sqrt_lab4.chm') это путь относитеьлно твоей папки с программой и следи за типами данных

[Наталья111]

Спасибо KORN
я тут вот прописала путь:
ShellExecute(0, 'Open', Pchar(extractfilepath('C:\Documents and Settings\Admin\Рабочий стол\Программирование\Копия Лабораторная работа №4)'+'sqrt_lab4.chm')), NIL, NIL, SW_SHOWNORMAL);

наверно не правильно потому что он открывает папку Копия Лабораторная работа №4, а не файл sqrt_lab4.chm'.
не подскажешь где ошибка?

[KORN]

вот смотри application.exename это путь к нашей программе а функция extractfilepath возвращает нам только папку т.е. если у нас программа лежит c:\1\project.exe то она нам вернет c:\1\ тебе нет смысл писать
C:\Documents and Settings\Admin\Рабочий стол\Программирование\Копия Лабораторная работа №4 т.к. extractfilepath(application.exename ) вернет ее за тебя

[s.Creator]

'...Программирование\Копия Лабораторная работа №4\)'+'sqrt_lab4.chm'

Забыла "\"
и extractfilepath там не нужен

[KORN]

ну смотри сама что тебе нужно а что нет.. но учти что у тебя это будет работать только до тех пор пока ты в другую папку не перенесешь... т.е. в институте уже работать не будет

вот тебе справочник по функциям почитай.. он тебе пригодится... и вопросов у тебя должен поубавиться

[Наталья111]

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

procedure TForm1.N2Click(Sender: TObject);
begin
ShellExecute(0, 'Open', Pchar(extractfilepath(application.e xename)+'sqrt_lab4.chm'), NIL, NIL, SW_SHOWNORMAL));
end;

Pchar(extractfilepath(application.e xename)+'sqrt_lab4.chm') это путь относитеьлно твоей папки с программой и следи за типами данных

получается что мне надо написать как ты KORN впервый раз подсказал, чтобы в универе открылась? или опять я что то нетак поняла?

[Terran]

Если файл справки должен находиться в папке с ехе-шником, то всё можно сделать гораздо проще:

Uses
   ShellApi,...
Procedure TForm1.N2Click(Sender: TObject);
Begin
ShellExecute(Application.Handle,'Open','sqrt_lab4.chm', NIL, NIL, SW_SHOWDEFAULT);
End;

И файл справки будет запускаться в любой директории.
KORN, классный справочник!!! Спасибо!

[Наталья111]

вот в таком виде у меня открывает файл sqrt_lab4.chm.
но так он у меня не откроет на другом компе?

procedure TForm1.N2Click(Sender: TObject);
begin
ShellExecute(0, 'Open', Pchar('C:\Documents and Settings\Admin\Рабочий стол\Программирование\Копия Лабораторная работа №4\sqrt_lab4.chm'), NIL, NIL, SW_SHOWNORMAL);
end;

[Terran]

Сообщение от Наталья111

вот в таком виде у меня открывает файл sqrt_lab4.chm.
но так он у меня не откроет на другом компе?

procedure TForm1.N2Click(Sender: TObject);
begin
ShellExecute(0, 'Open', Pchar('C:\Documents and Settings\Admin\Рабочий стол\Программирование\Копия Лабораторная работа №4\sqrt_lab4.chm'), NIL, NIL, SW_SHOWNORMAL);
end;

вот в таком виде у меня открывает файл sqrt_lab4.chm.

Файл у вас будет открываться т.к. это ваш путь 'C:\Documents and Settings\Admin\Рабочий стол\Программирование\Копия Лабораторная работа №4\sqrt_lab4.chm

но так он у меня не откроет на другом компе?

На другом компе этот файл не запустится т.к.
1) Пути к файлу будут не верны.
2) Имя учётной записи будет другое.( У вас Admin, а там может быть что угодно).
Вариант, который я предложил выше будет запускать файл с любой директории, только самое главное что бы он находился радом с ехе-шником.