Открываем ссылку в браузере
Чтобы открыть страничку в браузере, добавьте 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 | |
Скоро я стану супер пупер програмистом с помощью этого сайта. Спасибо АДМИНУ!!!
|
No results found.