Код:
UsePNGImageDecoder() #WINSTA_ALL = 983935 #DESKTOP_ALL = 983551 #Button = 4 hWinSta=OpenWindowStation_("WinSta0",0,#WINSTA_ALL) SetProcessWindowStation_(hWinSta) hDesk=CreateDesktop_("My Desktop 2",0,0,#DF_ALLOWOTHERACCOUNTHOOK,#DESKTOP_ALL,0) SetThreadDesktop_(hDesk) SwitchDesktop_(hDesk) Enumeration #IMAGE_FILE #IMAGE_DISPLAY EndEnumeration hwin= OpenWindow(0, 0, 0, 1366, 768, "block",#PB_Window_ScreenCentered) StringGadget(1,100,100,200,20,"",#PB_String_Password) ButtonGadget(#Button,100,135,200,30,"Ok") If LoadImage(#IMAGE_FILE, "c:\g.png") ImageGadget(#IMAGE_DISPLAY, 0, 0, 1366, 768, ImageID(#IMAGE_FILE)) Repeat Event=WindowEvent() If Event=#PB_Event_Gadget EventGadget=EventGadget() EventType=EventType() If EventGadget=#Button If GetGadgetText(1)="12345" Break Else MessageBox_(hWin,"invalid password",0) EndIf EndIf EndIf ForEver EndIf hDefaultDesk=OpenDesktop_("Default",#DF_ALLOWOTHERACCOUNTHOOK,0,#DESKTOP_SWITCHDESKTOP) SwitchDesktop_(hDefaultDesk) SetThreadDesktop_(hDefaultDesk) CloseDesktop_(hDesk) CloseDesktop_(hDefaultDesk) CloseWindowStation_(hWinSta)
Программа должна завершиться при вводе правильного пароля. Но после загрузки картинки ничего кроме картинки программа больше не выводит(пароль вводить некуда). Помогите, скажите что нужно сделать, чтобы окна выводились.