Автозапуск приложения. Но вопрос совсем не про автозапуск приложения.

[avd]

В реестре, в ветке HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Run прописан путь к *.exe.
При запуске Win приложение как положено запускается. Но!
В меню программы есть пункт "справка" при клике на который:

procedure TForm1.helpClick(Sender: TObject);
var
  h: HWND;
begin
  h := FindWindow('HH Parent', 'Справочка');
  if h = 0 then WinExec('hh.exe spravochka.chm', SW_RESTORE)
  else
  begin
    ShowWindow(h, SW_RESTORE);
    Windows.SetForegroundWindow(h);
  end;
end;

Так вот, если прилож. запущено пользователем, клик на пунк меню "справка" открывает файл spravochka.chm'. А если прилож. запущено по автозапуску, выдаётся сообщение "Не удаётся открыть файл: spravochka.chm".
Какие таблетки принимать?
(spravochka.chm лежит там же где *.exe)

[Пепел Феникса]

читаем про текущую директорию.
вам же надо формировать руками полный путь.

[avd]

Согласен.

procedure TForm1.helpClick(Sender: TObject);
var
  h: HWND;
begin
  h := FindWindow('HH Parent', 'Справочка');
//  if h = 0 then WinExec('hh.exe spravochka.chm', SW_RESTORE) // Убираем
  ShellExecute(Handle, 'open', pWideChar('hh.exe'), 
         pWideChar(ExtractFilePath(Application.ExeName) +spravochka.chm'), 
         nil, SW_RESTORE) // Вставляем
  else
  begin
    ShowWindow(h, SW_RESTORE);
    Windows.SetForegroundWindow(h);
  end;
end;

Заработало

[Человек_Борща]

Так вот, если прилож. запущено пользователем, клик на пунк меню "справка" открывает файл spravochka.chm'. А если прилож. запущено по автозапуску, выдаётся сообщение "Не удаётся открыть файл: spravochka.chm".
Какие таблетки принимать?

var
  myDir:string;
begin
  myDir:=EXtractFilePath(ParamStr(0))+'\';
  ShellExecute(GetForegroundWindow,PChar('Open'),PChar('hh.exe'),PChar('"'+myDir+'Help.chm"'),nil,PChar(myDir),SW_SHOWNORMAL);
end;

[GunSmoker]

В качестве дальнейшего улучшения предлагаю заменить вызов hh.exe на полноценную справку.