Thanks to all, got it sorted out now
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]
-----Original Message-----
From: Patrick Dunford [mailto:[EMAIL PROTECTED]]
Sent: Friday, June 04, 1999 16:09
To: Multiple recipients of list delphi
Subject: RE: [DUG]: Progmatically changing Computers Date
You can also use the Windows Unit record type TSystemTime which is
referenced in the function call:
function SetSystemTime(const lpSystemTime: TSystemTime): BOOL; stdcall;
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Chris Crowe
> Sent: Friday, 4 June 1999 15:46
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: Progmatically changing Computers Date
>
>
> 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;
snip
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
Jeremy Coulter.vcf
