Запускаем Интернет браузер при нажатие на Label - Общие вопросы Delphi

celovec · 26.03.2008, 00:42

Подскажите пожалуйста как при нажатие допустим на Label1 запустить Internet Explorer с какой либо страничкой. Было бы здорава не привязываться именно к IE а запускать именно тот браузер который в настройках компьютера стоит по default.
Заранее большое спасибо.

Dj_smart · 26.03.2008, 00:55

Было бы неплохо узнать

B_N · 26.03.2008, 01:53

Код:

ShellExecute(GetDesktopWindow(), 'open', 'http://www.example.com/', '', '', SW_SHOWDEFAULT);

celovec · 26.03.2008, 02:55

Расскажи подробней пожалуйста.

mutabor · 26.03.2008, 03:13

Цитата:

Сообщение от celovec

Расскажи подробней пожалуйста.

Подводишь мышку к этому коду, плавным движением руки выделяешь строку, копируешь, открываешь свой дельфи проект, вставляешь эту строку в обработчик нажатия лейбела, нажимаешь F9.
Достаточно подробно?
p.s. Простите не удержался

Кстати, если серьезно, нужно добавить в Uses ShellAPI, и адрес если динамически менять, переменная должна быть типа PChar, либо же статический в кавычках 'http://...'

SERG1980 · 26.03.2008, 08:06

ShellExecute(GetDesktopWindow, 'open',
PChar(TLabel(Sender).Caption), nil, nil, sw_ShowNormal);

Dj_smart · 26.03.2008, 14:29

Да, а кто знает, как реализовать всё это в richedit или tmemo? Или вооще такое возможно? Поделитесь советом, кто знает. Заранее благодарен.

mutabor · 26.03.2008, 17:55

В смысле ссылку в тексте сделать? Для этого лучше взять RichEdit, в нем можно будет выделить слово-ссылку. При клике в RichEdit определять положениие курсора, если он на нужном слове, передать ссылку в браузер.
Вобщем повозиться нужно. Пример работы с RichEdit есть в примерах к-рые идут с Дельфи.

Dj_smart · 26.03.2008, 18:08

Да ссылку.Блин, а по конкретнее, с примером плиз.Я это знаю, догадался посмотреть, но там ничего про ссылки нету.

Dj_smart · 26.03.2008, 18:09

А курсор? как менять курсор?(рука)

26.03.2008, 00:42	#1
celovec Форумчанин Регистрация: 15.06.2007 Сообщений: 182	Запускаем Интернет браузер при нажатие на Label Подскажите пожалуйста как при нажатие допустим на Label1 запустить Internet Explorer с какой либо страничкой. Было бы здорава не привязываться именно к IE а запускать именно тот браузер который в настройках компьютера стоит по default. Заранее большое спасибо.

26.03.2008, 00:55	#2
Dj_smart Капсула от спама Форумчанин Регистрация: 04.03.2008 Сообщений: 779	:) Было бы неплохо узнать Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме? CncFiles.ru - бесплатный файловый хостинг

26.03.2008, 01:53	#3
B_N Новичок Джуниор Регистрация: 18.01.2008 Сообщений: 1,720	Код: `ShellExecute(GetDesktopWindow(), 'open', 'http://www.example.com/', '', '', SW_SHOWDEFAULT);`

26.03.2008, 14:29	#7
Dj_smart Капсула от спама Форумчанин Регистрация: 04.03.2008 Сообщений: 779	Да, а кто знает, как реализовать всё это в richedit или tmemo? Или вооще такое возможно? Поделитесь советом, кто знает. Заранее благодарен. Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме? CncFiles.ru - бесплатный файловый хостинг

26.03.2008, 17:55	#8
mutabor Телепат с дипломом Старожил Регистрация: 10.06.2007 Сообщений: 4,929	В смысле ссылку в тексте сделать? Для этого лучше взять RichEdit, в нем можно будет выделить слово-ссылку. При клике в RichEdit определять положениие курсора, если он на нужном слове, передать ссылку в браузер. Вобщем повозиться нужно. Пример работы с RichEdit есть в примерах к-рые идут с Дельфи. The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen) Проверь себя! Онлайн тестирование \| Мой блог

26.03.2008, 02:55	#4
celovec Форумчанин Регистрация: 15.06.2007 Сообщений: 182	Расскажи подробней пожалуйста.

26.03.2008, 08:06	#6
SERG1980 Участник клуба Регистрация: 28.03.2007 Сообщений: 1,814	ShellExecute(GetDesktopWindow, 'open', PChar(TLabel(Sender).Caption), nil, nil, sw_ShowNormal);

26.03.2008, 18:08	#9
Dj_smart Капсула от спама Форумчанин Регистрация: 04.03.2008 Сообщений: 779	Да ссылку.Блин, а по конкретнее, с примером плиз.Я это знаю, догадался посмотреть, но там ничего про ссылки нету. Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме? CncFiles.ru - бесплатный файловый хостинг

26.03.2008, 18:09	#10
Dj_smart Капсула от спама Форумчанин Регистрация: 04.03.2008 Сообщений: 779	А курсор? как менять курсор?(рука) Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме? CncFiles.ru - бесплатный файловый хостинг

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Браузер	DeDoK	Общие вопросы Delphi	3	17.05.2008 17:32
Интернет браузер vs WebBrowser	celovec	Работа с сетью в Delphi	1	18.07.2007 08:56
Браузер	komex	Win Api	13	14.06.2007 17:47
Браузер	CHERT	Помощь студентам	6	08.06.2007 19:48
Вопрос по label. Как сделать так чтобы label была прозрачной.	Lonix	Компоненты Delphi	2	01.04.2007 06:23