
11.10.2012, 16:23
|
 |
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от DeOne
Как сделать?
Именно по кнопке Button, WebLabel и прочее не интересует.
|
Код:
uses ..., ShellAPI;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'open', 'http://www.rambler.ru', '', '', SW_SHOWNORMAL);
end;
|