Delphi World - Изменение системного времени из Delphi2

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Изменение системного времени из Delphi2

Программист:
- Сегодня у сына день рождения.
- И сколько ему исполняется?
- 1024 дня.

Можно. Попробуйте следующий код:

Procedure settime(hour, min, sec, hundreths : byte); assembler;
asm
  mov  ch, hour
  mov  cl, min
  mov  dh, sec
  mov  dl, hundreths
  mov  ah, $2d
  int  $21
end;

Procedure setdate(Year : word; Month, Day : byte); assembler;
asm
  mov  cx, year
  mov  dh, month
  mov  dl, day
  mov  ah, $2b
  int  $21
end;