Intr.PAS

Язык:
Русский
English


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

uses Dos;

var
 Date, Year, Month, Day : String;
  Regs                   : Registers;  { Для модуля WinDos используйте }
                                      { тип TRegisters.               }

begin
  Regs.AH := $2A;
 with Regs do
    Intr($21, Regs);
 with Regs do
 begin
   Str(CX, Year);
   Str(DH, Month);
   Str(DL, Day);
 end;
 Date := Day + '.' + Month + '.' + Year;
 WriteLn('Сегодня : ', Date);
end.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //