Kann man das ändern?
Code: Alles auswählen
#Window = 0
#Button = 1
OpenWindow(#Window, 0, 0, 200, 200, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Virus")
If CreateGadgetList(WindowID(#Window))
ButtonGadget(#Button, 30, 20, 110, 25, "Info des Virus")
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Case #PB_Event_Gadget
Select EventGadgetID()
Case #Button
RunProgram("http://www.2page.de/link_14919394_text_24595109_deutsch.html")
EndSelect
quit = 1
EndSelect
Until quit = 1
Habe die Demo