Изменение системного времени из 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;


Далее: Использовать TTime для более 24 часов »»