MsDos.PAS

Язык:
Русский
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.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //