Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, Уважаемые эксперты! У меня возникла одна небольшая проблема.
Не получается сделать в программе ссылку на сайт. Щёлкнул - сайт открылся. Расскажите пожалуйста как это сделать? Пробовал exShellExecute. Не получается. Или что-то не так делал.

Вопрос задал: Maverick (статус: Посетитель) Вопрос отправлен: 29 мая 2009, 01:03 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Николай Рубан

Здравствуйте, Maverick!

Предположим, что у Вас в качестве объекта при нажатии на который будет осуществляться переход, используется TLabel:

procedure TForm1.Label1Click(Sender: TObject);
begin //запустить сайт
ShellExecute(handle, 'open', 'http://mail.ru/', nil, nil, SW_SHOW);
end;

uses ... , ShellApi;

Ответ отправил: Николай Рубан (статус: 10-ый класс) Время отправки: 29 мая 2009, 01:35 Оценка за ответ: 5 Комментарий к оценке: пасиба огромное)

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.