Неее...Допустим нажал "1" на экране появилось 1......Нажал "Escape" появилось Escape
|
If OpenWindow(0, 0, 0, 240, 70, "ShortcutGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ShortcutGadget(0, 20, 20, 200, 25, #PB_Shortcut_Control|#PB_Shortcut_A)
SetActiveGadget(0)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf
Как вот в этом примере сделать чтобы текст под ProgressBar'ом появился????
|
If OpenWindow(0, 0, 0, 410, 70, "Window", #PB_Window_ScreenCentered | #PB_Window_Tool)
ProgressBarGadget(0, 10, 10, 380, 20, 0, 20)
TextGadget(1,10,40,200,16,"")
SetGadgetColor(1,#PB_Gadget_FrontColor,$FFFFFF)
SetGadgetColor(1,#PB_Gadget_BackColor,RGB(12,12,12))
SetWindowColor(0,RGB(12,12,12))
StickyWindow(0,1)
AddWindowTimer(0,0,10)
Coint=0
Repeat
Event = WaitWindowEvent()
If event = #PB_Event_Timer
If EventTimer() = 0
SetGadgetState(0,Coint)
SetGadgetText(1,"Текущий прогресс - "+Str(Coint))
Coint +1
If Coint>20
Coint=0
EndIf
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
End
Как вот сделать проверку на существование процесса???
Если .ехе запущен то его уже не надо запускать
|
If GetPidProcess("Explorer.exe")
MessageRequester("", "Прога запущена", #MB_OK)
Else
MessageRequester("", "Прога НЕ запущена", #MB_OK)
EndIf