PureBasic Forums - English

Code: Select all

Procedure ButtonHandler()
  RunProgram("myapp.exe", "-run", "")
  End 1
EndProcedure

Procedure URlHandler()
  RunProgram("url my site")
EndProcedure

Procedure DonateHandler()
  RunProgram("url donate")
EndProcedure

If OpenWindow(0, 100, 200, 350, 200, "Launcher 0.0.1", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  TextGadget(2, 111, 10, 330, 14, "My site")
  HyperLinkGadget(3, 95, 30, 330, 14, "url", RGB(255,0,0), #PB_HyperLink_Underline)
  SetGadgetColor(3, #PB_Gadget_FrontColor, RGB(0,120,215))
  
  TextGadget(4, 111, 60, 330, 14, "By me coffee")
  HyperLinkGadget(5, 135, 80, 330, 14, "DonationAlerts", RGB(255,0,0), #PB_HyperLink_Underline)
  SetGadgetColor(5, #PB_Gadget_FrontColor, RGB(0,120,215))
  
  TextGadget(6, 20, 110, 330, 14, "Personal accounts are not recommended for use!")
  SetGadgetColor(6, #PB_Gadget_FrontColor, RGB(255,0,0))

  
  BtnLaunch = ButtonGadget(1, 10, 140, 330, 50, "Run MyApp")
  BindGadgetEvent(1, @ButtonHandler())
  BindGadgetEvent(3, @URlHandler())
  BindGadgetEvent(5, @DonateHandler())

  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf