Здравствуй, Ivan!
Однажды 19.05.06 в 23:01 Ivan Kuvshinov (2:5020/175.2)
написал All по поводу
-=- Sleep. -=-
IK> From: "Ivan Kuvshinov" <***@mail.cnt.ru>
IK> Можно ли сделать процедуру аналогичную Sleep, что бы для DOS программы, при
IK> выполнении в среде Windows действительно он и делался, а в DOS -
IK> выполнялась
IK> пауза?
procedure Sleep(n : longint);
var i : longint;
begin
i := GetTime;
while (i+n) > GetTime do;
end;
Примечания:
1. GetTime - людая доступная процедура для определения времени в нужных
единицах.
2. Т.к. DOS - среда однозадачная, то нам нет необходимости передавать кванты
времени другим приложениям.
2-prim. Если предполагается запуск DOS-сессии Windows, то существует прерывание
DOS, позволяющее отдавать кванты времени ОС. Очевидно, его вызов нужно включить
в цикл.
До свидания, в 23:05 MSK
Sergey