procedure TForm1.Button1Click(Sender: TObject);
Var
NewTime : _SystemTime;
begin
NewTime.wYear := 1999;
newTime.wMonth := 6;
newTime.wDay := 4;
newTime.wHour := 2;
newTime.wMinute := 30;
newtime.wSecond := 30;
newTime.wMilliSeconds := 0;
SetSystemTime(NewTime);
end;
Christopher Crowe (Software Developer)
Microsoft MVP, MCP
Adrock Software
Byte Computer & Software LTD
P.O Box 13-155
Christchurch
New Zealand
Phone/Fax (NZ) 03-3651-112
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Coulter, Jeremy
> Sent: Friday, 4 June 1999 14:20
> To: Multiple recipients of list delphi
> Subject: [DUG]: Progmatically changing Computers Date
>
>
> 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;
>
>
> Can anyone help ?
>
> Jeremy Coulter
> Application Developer
>
> Application Development Centre
> Compaq Computer New Zealand Ltd.
>
> Phone: 64 3 371 5724 (DD)
> Fax: 64 3 371 5744
> Cell: 021 2150435
> E-mail: [EMAIL PROTECTED]
> Private E-Mail: [EMAIL PROTECTED]
> <<Jeremy Coulter.vcf>>
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
