Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

17th
Сен

Открыть справку при автозапуске программы

Posted by micher under Delphi

avd

При запуске 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;

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

Так:



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;

Или так:



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;

тема на форуме