Открытие ссылки в браузере по умолчанию

Форумы ПрочееОткрытие ссылки в браузере по умолчанию ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 537

Рейтинг: 14

#1: 2016-12-26 23:22:59 ЛС | профиль | цитата

Вот нужно было для программы, искал на форуме, когда-то видел целый компонент. Но все гораздо проще.
Схема как я сделал, может кому нужно.


Add(MainForm,2953706,21,105)
{
}
Add(FormatStr,1774474,182,147)
{
 DataCount=1
 Mask="rundll32 url.dll,FileProtocolHandler %1"
 link(onFString,699495:doConsoleExec,[])
 link(Str1,1954726:Text,[])
}
Add(WinExec,699495,231,133)
{
 Point(doConsoleExec)
}
Add(VisualStrings,1954726,182,105)
{
 Lines=#23:http://forum.hiasm.com/|
 Width=123
}
Add(Button,2525252,126,147)
{
 Left=110
 Top=140
 Caption="Открыть"
 link(onClick,1774474:doString,[])
}

карма: 4

Ответов: 824

Рейтинг: 138

#2: 2016-12-26 23:39:07 ЛС | профиль | цитата

Мда-а-а!
У кого-то есть лопата? Я умер от смеха! Нужно закопаться.

А проще никак?


Add(MainForm,15563228,259,91)
{
}
Add(WinExec,699495,329,133)
{
 Point(doConsoleExec)
 link(FileName,1954726:Text,[])
}
Add(VisualStrings,1954726,329,91)
{
 Lines=#23:http://forum.hiasm.com/|
 Width=123
}
Add(Button,2525252,259,140)
{
 Left=110
 Top=140
 Caption="Открыть"
 link(onClick,699495:doShellExec,[])
}

карма: 1

Ответов: 537

Рейтинг: 14

#3: 2016-12-26 23:45:02 ЛС | профиль | цитата

Блин, а если ссылка всегда разная в проге и нужно динамически её создавать. Мне очень смешно.

Редактировалось 1 раз(а), последний 2016-12-26 23:46:06

карма: 4

Ответов: 1328

Рейтинг: 69

#4: 2016-12-27 11:17:12 ЛС | профиль | цитата

Sersey писал(а):

Блин, а если ссылка всегда разная в проге и нужно динамически её создавать.

меняй адрес на точке FileName

Add(WinExec,699495,483,231)
{
 Point(doConsoleExec)
}
Add(Button,2525252,287,238)
{
 Left=100
 Top=90
 Width=70
 Caption="hiasm.com"
 Data=String(http:\\hiasm.com)
 link(onClick,4701764:doWork2,[])
}
Add(Button,109475,294,315)
{
 Left=100
 Top=125
 Width=70
 Caption="ya.ru"
 Data=String(http:\\ya.ru)
 link(onClick,4701764:doWork3,[(438,321)])
}
Add(HubEx,4701764,434,238)
{
 link(onEvent,699495:doShellExec,[])
}

Редактировалось 3 раз(а), последний 2016-12-27 11:25:14

карма: 2

Форумы ПрочееОткрытие ссылки в браузере по умолчанию ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)