Открыть URL

[JuraS]

Здравствуйте.
Подскажите как открыть URL программно на Lazarus, что бы это инициировало запуск бровзера и т.п.
В общем то, что в Windows делается ShellExecute, но чтобы работало и под Linux тоже.
Заранее спасибо.

PS:
Искал подобную тему. Не нашел

[Mr.Smart]

Здравствуйте.
Подскажите как открыть URL программно на Lazarus, что бы это инициировало запуск бровзера и т.п.
В общем то, что в Windows делается ShellExecute, но чтобы работало и под Linux тоже.
Заранее спасибо.

Универсального способа нет!

PS:
Искал подобную тему. Не нашел

Плохо ищете на форуме обсуждался данный вопрос для Linux'a....

[JuraS]

Хм...ну тогда дали бы ссылку...или, если вам не сложно , сказали бы верный поисковый запрос.
И раз универсального нет, то как определить платформу...

[Mr.Smart]

Для определения платформы у вас есть перпроцессорные средства условной компиляции

Код: Выделить всё

{$IFDEF WINDOWS}Код для Виндафс{$ENDIF}
{$IFDEF LINUX}Соотвктственно для Линя{$ENDIF}
и т.д.

Читайте документацию на компилятор FPC

[JuraS]

Да, про эти директивы я забыл: друг их использовал и я мельком видел их в коде...

[Mr.Smart]

Меньше ленитесь и всё у вас получится тыц-тыц

Добавлено спустя 1 минуту 22 секунды:
пост от Odyssey

[JuraS]

Меньше ленитесь и всё у вас получится тыц-тыц

Ваше пожелание будет учтено.
Но в поиске скорее опыт важен чем труд.
Большое спасибо.

[Alexx2000]

Есть один кроссплатформенный способ:

• Подключаем модуль HelpIntfs
• На форму кидаем компоненты HTMLHelpDatabase и HTMLBrowserHelpViewer
• У обоих утанавливаем свойство AutoRegister = True

После этого ссылку можно открыть следующим образом:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var
  err: string;
begin
  if HelpIntfs.ShowHelp('http://www.yandex.ru', 'Lazarus', 'text/html', err) <> shrSuccess then
    ShowMessage(err);
end;

Работает как в Windows, так и в Linux. Этот способ используется в самом Лазарусе в окне "О проекте Lazarus".

[Mr.Smart]

В итоге линкуется куча неиспользуемого (мёртвого) кода...

[VAshot]

Компонент TOvcURL из набора Orpheus. Но под "не Win" не проверял.

[shade]

Проверил код от Odyssey, у меня работает замечательно, судя по коду в нормальных дистрибутивах будет работать.
В крайнем случае можно добавить в настройки путь к нестандартному браузеру, хотя в большистве случаев думаю нет необходимости заморачиваться.

Добавлено спустя 25 секунд:
Надо в базу знаний занести

[Odyssey]

Это код не от Odyssey, это код от Graeme Geldenhuys, из проекта fpGUI.

Надо в базу знаний занести

Может, лучше сразу в LCL? Добавил #13574.
Пост в базе знаний тут.