[Пётр]

Неее...Допустим нажал "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