> Hi all can someone remind me how to Progmatically changing
> Computers Date ??
>
> I have some ASM code, but it nearly killed my machine when I
> ran it.....The
> code is :-
>� Procedure SetDate(Year,Month,Day : Word); Assembler;
>�� Asm
>���� mov ah,2Bh
>���� mov cx,Year
>���� mov dh,BYTE PTR Month
>���� mov dl,BYTE PTR Day
>���� int 21h
>�� End;
Interesting - I just cut this from a D1 app I am working on at the
moment:
�
{gb nov 98 - borrowed from Borlands 'windos.pas' that contains classic
TurboPascal routines
�probably won't work under NT.
�parameter ranges are:�Year 1980-2099, Month 1-12 and Day 1-31. }
procedure SetDate(Year, Month, Day: Word); assembler;
asm
�� MOV���� CX,Year
�� MOV���� DH,BYTE PTR Month
�� MOV���� DL,BYTE PTR Day
�� MOV���� AH,2BH
�� INT���� 21H
end;
I�threw the code in when I discovered that the Win API did not have a
set date function.
Win32 does however so best to use SetSystemTime which also sets the Date
- obviously ;-)
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
