Файл помощи не открывается?

[PONKA]

Помогите с проблемой: в приложении есть помощь файл help.hlp, когда я запускаю программу и вызываю помощь все нормально, но если я делаю файл установи (инсталл), то когда я устанавливаю программу, то при запуске файл с помощью не открывается, а выдается сообщение что не может найти help.hlp. Я думаю что в файле проекта я не верно вызываю помощь ....
Код такой
....
Application.HelpFile := 'ROBOT.HLP';
....
Может еще что нибудь надо дописать. Кто знает подскажите!!!!

[FaTaL]

Используйте полный путь к файлу

Application.HelpFile:=ExtractFilePath(Application.ExeName)+'ROBOT.HLP';

Должно быть всё нормально.

[PONKA]

Большое спасибо за совет, но так тоже не получается...мое приложение просто не компилируется. Установочный файл я делаю с помощью ИнноСетап может там можно настроить что - нибудь...

[Mixasik]

Может быть эта ошибка выскакивает из-за того, что вы не используете модуль - SysUtils, эта функция лежит там!

[PONKA]

Нет ошибка не в этом я пробовала... Я пишу этот код в файле проекта и в меню Делфи компиляция блокируется, я не могу скомпилировать...

[Stilet]

А если просто запустить этот Хелп файл через ShellExecute?

[FaTaL]

Код в студию.
И кстати причем тут программа создания дистрибутива? о_0
Вы же наверно открывать помощь пытаетесь из своей программы?

[PONKA]

Вот весь код:

program Teach;
uses
  Forms,
  Windows,
  SysUtils,
  Calk in 'Calk.pas' {Form1},
  Analiz_str in 'Analiz_str.pas',
  Calkkk in 'Calkkk.pas' {Form2},
  Ran in 'Ran.pas',
  About in 'About.pas' {Form3},
  Verno in 'Verno.pas' {Form4},
  Neverno in 'Neverno.pas' {Form5},
  Otch in 'Otch.pas' {Otchet},
  Unit6 in 'Unit6.pas' {Form6},
  DHelp in 'DHelp.pas' {DialHelp},
  UnitNN in 'UnitNN.pas',
  Unit7 in 'Unit7.pas' {Form7},
  hi in 'hi.pas' {Form8},
  fod in 'fod.pas' {Form9},
  yg in 'yg.pas' {Form10},
  zadacha in 'zadacha.pas' {Form11},
  MyUnit in 'MyUnit.pas',
  Unit14 in 'Unit14.pas' {Form14},
  Temi in 'Temi.pas' {DataModule2: TDataModule};
{$R *.RES}
{$R Res/gs1.res}
{$R Res/my.res}
{$R Res/p.res}
{$R Res/font.res}
var
  HM: THandle;
function Check: boolean;
begin
  HM := OpenMutex(MUTEX_ALL_ACCESS, false, 'MyOwnMutex');
  Result := (HM <> 0);
  if HM = 0 then
  HM := CreateMutex(nil, false, 'MyOwnMutex');
end;
begin
  if Check then
  begin
  Application.MessageBox('Один экземпляр программы уже запущен!!!','Внимание!!!', MB_OK + MB_ICONINFORMATION);
  Exit;
  end;
  Application.Initialize;
  Application.HelpFile := 'ROBOT.HLP';
 // Application.HelpFile:=ExtractFilePath(ROBOT.HLP)+'ROBOT.HLP';
  Application.CreateForm(TForm14, Form14);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TOtchet, Otchet);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TDialHelp, DialHelp);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TDataModule2, DataModule2);
  Application.Run;
end.

[1234]

а не легче своять тулзу помощи и запускать ее через ShellExecute у меня с этой функцией никогда проблем не возникало

[PONKA]

Объясните пожалуйста поподробнее что это за функция ShellExecute и как ей пользоваться?