Вопрос Кнопка

Maxvell

Мимокрокодил
Подскажите код, чтобы после нажатия на кнопку, открылся сайт в браузере

procedure NewButtonClick(Sender: TObject);
begin
?
?
?
?
end;
 

Krinkels

Он где то тут
Администратор
Код:
procedure OpenBrowser;
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'krinkels.org', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
 
Сверху