GdccGlobal.TgdccProgress

Option Explicit
Sub ShowProgressWindow
 
   Dim Creator, P, I
   Set Creator = New TCreator
   Set P = Creator.GetObject(nil, "TgdccProgress", "")
 
   ' шагов может быть сколько угодно. не обязательно 100
   ' первый булевский параметр указывает надо ли принудительно 
   ' вывести окно с процентами поверх всех остальных
   ' второй булевский параметр -- можно ли прервать процесс кнопкой Прервать
 
   P.StartWork "Заголовок окна", "Название процесса", 100, True, True
 
   For I = 1 To 100
 
     ' имя шага и приращение
     ' приращение не обязательно 1, например,
     ' если на разных шагах процесса выполняется
     ' разный объем работ
 
     P.StartStep "Шаг #" & I, 1
 
     ' что-то делаем. для учебных целей -- просто пауза
 
     WinAPI.Sleep 200
 
     ' пользователь прервал наш процесс?
 
     If P.Canceled Then Exit For     
   Next
 
   ' процесс закончен. Булевский параметр показывает надо ли
   ' закрыть окно (True) или пусть повисит, пока пользователь его не закроет
 
   P.EndWork "Обработка завершена успешно", False
End Sub