Здравствуйте,можно ли сделать так что бы когда нажимаешь на Gadget,то открывается сыллка на браузере,знаю что можно сделать там браузер run chrome но тогда откроется хром,а если у тебя не хром? Можно ли так сделать вот код
Код:
Define pwd$, log$, pass$
UseCRC32Fingerprint()
log$ = InputRequester("Storm Project Login", "Введите вашь логин", "")
pwd$ = InputRequester("Storm Project Login", "Введите ваш пароль", "", #PB_InputRequester_Password)
pass$ = pwd$+log$
Debug StringFingerprint(pass$, #PB_Cipher_CRC32) ; запомнить при отладке и вставить в программу!
If StringFingerprint(pass$, #PB_Cipher_CRC32) <> "702a1dd7"
MessageRequester("Storm Project Login", "Неверный пароль или логин!",#PB_MessageRequester_Error)
End
EndIf
OpenWindow(1,400,400,600,600,"Storm Project",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
TextGadget(0, 10, 10, 180, 16, "Storm Project 1.0 activated. Author Weyz")
ButtonGadget(2,50,70,80,25,"кнопка")
SetWindowColor(1, RGB(98, 98, 98))
SetGadgetColor(2, #PB_Gadget_TitleBackColor, RGB(10, 230, 120))
SetGadgetColor(0, #PB_Gadget_BackColor, RGB(100, 9, 200))
SetGadgetColor(0, #PB_Gadget_FrontColor, RGB(230, 200, 10))
CreateMenu(0, WindowID(1))
MenuTitle("Файл")
MenuItem(0, "Выход")
CreateStatusBar(0, WindowID(1))
AddStatusBarField(90)
AddStatusBarField(100)
StatusBarText(0, 0, "Area normal")
StatusBarText(0, 1, "Area borderless", #PB_StatusBar_BorderLess)
Repeat
Event=WaitWindowEvent()
Gadget=EventGadget()
If Event=#PB_Event_Gadget And Gadget=2
MessageRequester("Сообщение","Была нажата кнопка")
ElseIf Event=#PB_Event_Menu
Select EventMenu()
Case 0
Break
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
EndЧто бы когда нажимаешь на гаджет кнопку,то тогда открывается какая-то сыллка на браузере который стоит в винде дефолтным.