![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Здравствуйте. Такой вот вопрос - нужно выдернуть процедуру Sleep из SysUtils.
Код:
procedure Sleep; external kernel32 name 'Sleep'; stdcall; {$ENDIF} {$IFDEF LINUX} procedure Sleep(milliseconds: Cardinal); begin usleep(milliseconds * 1000); // usleep is in microseconds end; {$ENDIF} Но так выдает кучу ошибок. Кто может - подскажите. |
#2
|
||||
|
||||
![]() Все, сам разобрался:
Код:
procedure Sleep(milliseconds: Cardinal); stdcall; external 'kernel32.dll' name 'Sleep'; |
#3
|
||||
|
||||
![]() Есть еще NtDelayExecution из ntdll, она покруче будет, там до сотен наносекунд можно задержку ставить.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
Speech (20.06.2013)
|
#4
|
||||
|
||||
![]() так
Цитата:
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Speech (20.06.2013)
|