Порой необходимо, чтобы программа могла отправлять пользователя по одному клику на надписи, на родной интернет ресурс. Код приведенный в этом примере, позволит отправлять пользователя кликнувшего по нашей ссылке, куда угодно. Для этого всего лишь необходимо: 1) В Uses прописываем ShellApi и кидаем Label на форму; 2) Создаем обработчик событий OnClick на
Label, и записываем следующую строчку:
begin ShellExecute(handle, 'open', 'http://www.delphiport.ucoz.com', nil, nil, SW_SHOW); end; Здесь, как вы наверное уже догадались, вместо
'http://www.delphiport.ucoz.com', можно записать адрес любого ресурса...
|