Gedemin TLB.IgsWinAPI.Sleep

From Gedemin TLB.pas

 procedure Sleep(Milliseconds: LongWord); safecall;

Unit: Gedemin TLB

Type: procedure

Visibility: public

Member Of: IgsWinAPI

Описание

Пауза на указанное количество миллисекунд.

Milliseconds

Пауза в миллисекундах.

Option Explicit
Sub ShowProgressWindow
 
   Dim Creator, P, I, C
   Set Creator = New TCreator
   Set P = Creator.GetObject(nil, "TgdccProgress", "")
 
   P.StartWork "Обработка данных", "Длительный процесс", 100, True, True
 
   C = System.StartPerfCounter("test", "Процесс...")
 
   For I = 1 To 100
     P.StartStep "Step #" & I, 1
 
     System.AddLogRecord "Test", "Идет выполнение процесса...", 1, -1, "", False
 
     If P.Canceled Then Exit For
 
     WinAPI.Sleep 200
   Next
 
   System.StopPerfCounter(C)
 
   P.EndWork "Обработка завершена успешно", False
End Sub