Открываем ссылку в браузере

  Чтобы открыть страничку в браузере, добавьте ShellAPI в uses и используйте код:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(handle, 'open', 'https://thedelphi.ru/', nil, nil, SW_SHOW);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(handle, 'open', 'C:\1.html', nil, nil, SW_SHOW);
end;

Добавил(а): Denismen	Дата: 2014-01-25
Скоро я стану супер пупер програмистом с помощью этого сайта. Спасибо АДМИНУ!!!