Правила форума
MsDos (процедура) (модуль WinDos)Язык:
Русский
English
MsDos (процедура) (модуль WinDos)
Выполняет вызов функции DOS.
Объявление
Procedure MsDos(Var Regs : TRegisters);
Режим
Windows, Real, Protected
Замечания
Обращение к MsDos - то же самое, что и обращение к процедуре Intr с параметром IntNo равным $21. Тип параметра Regs - это запись, определенная в модуле DOS. Используйте TRegisters, если вы пишете программу для среды Windows.
Ограничения
Не используйте программные прерывания, которые:
- Зависят от значений регистров SP или SS при входе.
- Изменяют регистры SP или SS при выходе.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры MsDos }
uses Crt, Dos;
var
Date, Year, Month, Day : String;
Regs : Registers; { Для модуля WinDos используйте }
{ тип TRegisters. }
begin
Regs.AH := $2A;
with Regs do
MsDos(Regs);
with Regs do
begin
Str(CX, Year);
Str(DH, Month);
Str(DL, Day);
end;
Date := Day + '.' + Month + '.' + Year;
WriteLn('Сегодня : ', Date);
end.
var
Date, Year, Month, Day : String;
Regs : Registers; { Для модуля WinDos используйте }
{ тип TRegisters. }
begin
Regs.AH := $2A;
with Regs do
MsDos(Regs);
with Regs do
begin
Str(CX, Year);
Str(DH, Month);
Str(DL, Day);
end;
Date := Day + '.' + Month + '.' + Year;
WriteLn('Сегодня : ', Date);
end.
::
::
::
