delphi 将本地系统时间设置为数据库(Oracle)时间

var
systemtime:Tsystemtime;
DateTime:TDateTime;
begin
dm0.qry1.close;
dm0.qry1.SQL.Clear;
dm0.qry1.SQL.Text:='select sysdate from dual';
dm0.qry1.Open;

DateTime:=dm0.qry.FieldByName('sysdate').AsDateTime;; //获得数据库时间（TDateTime格式）
DateTimeToSystemTime(DateTime,systemtime);     <span style="white-space:pre">	</span>//把Delphi的TDateTime格式转化为API的TSystemTime格式
SetLocalTime(SystemTime);                  <span style="white-space:pre">		</span>//设置系统时间
end;