Как создать ссылку в Lazarus?

Question

Я хочу сделать гиперссылку в кнопку. Если кнопка нажата, браузер по умолчанию откроет ссылку. Я попробовал его с версией Delphi, но он не работает в Lazarus. Вот код, который я пробовал. Как сделать это в версии Lazarus?

Uses ShellApi 

begin 
ShellExecute (0, 'Open', 'link website', '', '', SW_SHOWNORMAL); 
end; 

Answer 1

ShellExecute - это то, что я никогда не использую, поскольку всегда стараюсь, чтобы мои программы пересекали платформу. Я всегда использую TProcess или RunCommand. Есть полная документация по ссылке ниже, что довольно хорошо.

http://wiki.freepascal.org/Executing_External_Programs

Если вы действительно хотите использовать ShellExecute, то я отмечаю, что в ссылке он сказать следующее о инициализации COM:

ShellExecute является стандартной функцией MS Windows (ShellApi.h) с хорошим документацию на MSDN (обратите внимание на их замечания об инициализации COM, если функция окажется ненадежной).

Надеюсь, это поможет. Если нет, я постараюсь помочь вам дальше.

Answer 2

Простой межплатформенный способ открытия ссылки предоставляется функцией OpenURL. Он доступен в комплекте LCLIntf, который поставляется в комплекте с Lazarus.

Пример:

procedure OnClick; 
var 
    found: boolean; 
begin 
    found := OpenURL('http://nowhere.loopback.edu'); 
end;