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
