![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 27.11.2007
Сообщений: 7
|
![]()
Добрый день.
Нужно отобразить в окошке 'about program' URL, также как например на окошке About видно ссылку на борланд. Как это сделать? Что за компонент? |
![]() |
![]() |
![]() |
#2 |
Ученик
Форумчанин
Регистрация: 19.09.2008
Сообщений: 119
|
![]()
Uses ShellApi
......... procedure Tform1.FormCreate(Sender: TObject); begin label1.Font.Color := clblue; label1.Font.Style := label1.font.style + [fsunderline]; end; procedure Tform1.Label1Click(Sender: TObject); begin ShellExecute(Handle,'open',PChar('h ttp://www.borland.com/'),nil,nil,SW_SHOW) end; |
![]() |
![]() |
![]() |
#3 |
Регистрация: 27.11.2007
Сообщений: 7
|
![]()
У меня ShellExecute возвращает 5 - SE_ERR_ACCESSDENIED
Код:
|
![]() |
![]() |
![]() |
#4 |
Ученик
Форумчанин
Регистрация: 19.09.2008
Сообщений: 119
|
![]()
var
sUrl: string; ...... sUrl := 'http://' + label1.Caption; ShellExecute(Handle, 'open', PChar(sUrl), nil, nil, SW_SHOWNORMAL); |
![]() |
![]() |
![]() |
#5 |
Регистрация: 27.11.2007
Сообщений: 7
|
![]()
Эх, и все равно возвращает 5-ку, что есть неудача
|
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]()
Фаервол не блокирует досуп? Очень недостаточно информации, про условия возникновение ошибки.
|
![]() |
![]() |
![]() |
#7 |
Регистрация: 27.11.2007
Сообщений: 7
|
![]()
Наверное он и блокирует - инет перерыл и везде сказано, что запускать так.
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как отобразить на форме содержимое HTML-документа? | Alexpol | Общие вопросы Delphi | 13 | 09.01.2011 22:39 |
URL в RichEdit | Shouldercannon | Общие вопросы Delphi | 9 | 09.10.2008 17:32 |
Combobox1 = URL | russian-stalker | Общие вопросы Delphi | 3 | 07.09.2008 13:03 |
Пожалуйста помогите отобразить файл в двоичной форме в МЕМО | opex007 | Общие вопросы Delphi | 3 | 20.09.2007 09:51 |
Url open | Pavel_aress | Общие вопросы Delphi | 12 | 01.08.2007 20:40 |