Процедура MsDos

Модуль WinDos

Выполняет вызов функции DOS.

Объявление:

Procedure MsDos(Var Regs : TRegisters);

Режим:

Windows, Real, Protected

Замечание:

Обращение к MsDos - то же самое, что и обращение к процедуре Intr с параметром IntNo равным $21. Тип параметра Regs - это запись, определенная в модуле DOS. Используйте TRegisters, если вы пишете программу для среды Windows.

Не используйте программные прерывания, которые:

Зависят от значений регистров SP или SS при входе.
Изменяют регистры SP или SS при выходе.

Пример:

{ Пример программы для процедуры MsDos }

Uses WinCrt, WinDos;

Var Date, Year, Month, Day : String;
                      Regs : TRegisters; { Для модуля DOS используйте }
                                         { тип Registers.             }
Begin
 Regs.AH:=$2A;
 With Regs Do
 MsDos(Regs);
 With Regs Do
 Begin
  Str(CX, Year);
  Str(DH, Month);
  Str(DL, Day);
 End;
 Date:=Month+'-'+Day+'-'+Year;
 WriteLn('Сегодня : ', Date);
End.