Изменение системного времени из Delphi. Способ 2
|
|
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; |