The SetLocalTime function sets the current local time and date. BOOL SetLocalTime( CONST SYSTEMTIME *lpSystemTime // address of local time to set ); ParameterslpSystemTimePoints to a SYSTEMTIME structure that contains the current local date and time. The wDayOfWeek member of the SYSTEMTIME structure is ignored. Return ValuesIf the function succeeds, the return value is nonzero. If the function fails, the return value is zero. To get extended error information, call GetLastError. ResWindows NT: The SetLocalTime function fails if the calling process does not have the SE_SYSTEMTIME_NAME privilege. This privilege is disabled by default. Use the AdjustTokenPrivileges function to enable this privilege and again to disable it after the time has been set. For more information about security privileges, see Privileges.
);
ParameterslpSystemTimePoints to a SYSTEMTIME structure that contains the current local date and time.
The wDayOfWeek member of the SYSTEMTIME structure is ignored. Return ValuesIf the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError. ResWindows NT: The SetLocalTime function fails if the calling process does not have the SE_SYSTEMTIME_NAME privilege. This privilege is disabled by default. Use the AdjustTokenPrivileges function to enable this privilege and again to disable it after the time has been set. For more information about security privileges, see Privileges.
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select getdate() as servertime');
adoquery1.Open;
showmessage(adoquery1.FieldValues['servertime']);
end;