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

  Чтобы открыть страничку в браузере, добавьте 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.
Отменить.