Открыть ссылку в браузере по умолчанию

use
      ShellAPI
      ;
...

var
    Wide : WideString;
begin
  wide := 'https://kdponline.ru';
  ShellExecute(Handle, 'open',
               PWideChar(Wide)
               ,'','',SW_SHOW);
end;
Метки: