同步服务器时间编译出错。**

lotus

function TCBSFJYT.SetSystemtime(ATime: TDateTime) : boolean;
Var
  ADateTime:TSystemTime;
  yy,mon,dd,hh,min,ss,ms : Word;
Begin
  decodedate(ATime ,yy,mon,dd);
  decodetime(ATime ,hh,min,ss,ms);
  With ADateTime Do
    Begin
      wYear:=yy;
      wMonth:=mon;
      wDay:=dd;
      wHour:=hh;
      wMinute:=min;
      wSecond:=ss;
      wMilliseconds:=ms;
    End;
   Result:=SetLocalTime(ADateTime);
   SendMessage(HWND_BROADCAST,WM_TIMECHANGE,0,0) ;
   If Result then ShowMessage('成功改变时间!');
End;

编译出错:
[错误]Biz:\NDGL\DFGLZXT\CBSFJ\CBSFJSJCS.FUNC.DIR\CBSFJYT.Form.pas(243, 13): Undeclared identifier "TSystemTime"
[错误]Biz:\NDGL\DFGLZXT\CBSFJ\CBSFJSJCS.FUNC.DIR\CBSFJYT.Form.pas(246, 3): Undeclared identifier "decodedate"
[错误]Biz:\NDGL\DFGLZXT\CBSFJ\CBSFJSJCS.FUNC.DIR\CBSFJYT.Form.pas(247, 3): Undeclared identifier "decodetime"
[错误]Biz:\NDGL\DFGLZXT\CBSFJ\CBSFJSJCS.FUNC.DIR\CBSFJYT.Form.pas(248, 8): Undeclared identifier "ADateTime"
[错误]Biz:\NDGL\DFGLZXT\CBSFJ\CBSFJSJCS.FUNC.DIR\CBSFJYT.Form.pas(258, 12): Undeclared identifier "SetLocalTime"
[错误]Biz:\NDGL\DFGLZXT\CBSFJ\CBSFJSJCS.FUNC.DIR\CBSFJYT.Form.pas(259, 4): Undeclared identifier "SendMessage"
[错误]Biz:\NDGL\DFGLZXT\CBSFJ\CBSFJSJCS.FUNC.DIR\CBSFJYT.Form.pas(260, 19): Undeclared identifier "ShowMessage"
[错误]Biz:\NDGL\DFGLZXT\CBSFJ\CBSFJSJCS.FUNC.DIR\CBSFJYT.Form.pas(241, 10): Assertion failure (E:\DEVELOP\BUILD_20050908\TIB3\SRC\COMMONLANGUAGE\ILCode\ILCode.pas, line 1209)

zfang

从编译信息看，是没有定义这些对象TSystemTime。看下帮助，是否缺少引用了。

lixy

平台没有TSystemTime这个类，楼主可以用导入第三方控件方式把函数包装进来。论坛里有很多这样的例子。

lotus

WM_TIMECHANGE
在Borland.Dephi的哪个类里面？

zfang

看看帮助
Borland.Dephi.Messages试试。