|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
задержки выполнения программы ?
Как сделать задержку выполнения программы на n миллисекунд.
Sleep не подходит (ПРОГРАММА НУЖНА БЕЗ ИНТЕРФЕЙСА). ПОМОГИТЕ ПОЖАЛУЙСТА . вот код программы: program f; uses windows; var St: TStartupinfo; Pr: TProcessInformation; begin здесь надо вставить задержку ! CreateProcess(nil, '1.exe', nil, nil, false, 0, nil, nil, St, Pr); end. |
#2
|
||||
|
||||
Код:
procedure Delay(Value: Cardinal); var F, N: Cardinal; begin N := 0; while N <= (Value div 10) do begin SleepEx(1, True); Application.ProcessMessages; Inc(N); end; F := GetTickCount; repeat Application.ProcessMessages; N := GetTickCount; until (N - F >= (Value mod 10)) or (N < F); end; Код:
Delay(1000); Последний раз редактировалось Winny, 02.09.2007 в 21:40. |