想用SetLocalTime设置系统时间，将结构SYSTEMTIME中的wHour + 1，却见不到效果。请问应该怎么做？本人新手一个。

Question

SetLocalInfo(LOCALE_USER_DEFAULT,'hh:mm:ss',LOCALE_STIME);  
  sendmessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,0); 
试一试行不行.

Answer 1

不行啊！undeclared identifier: 'SetLocalInfo'. 需要在uses加什么？

Answer 2

给你一段参考程序（不完全，但是思想完全，字太多，我不想打），：）
var
  tsetDate:Tdatetime;
  Vdate:Vairant;
  tTzi:TTimeZoneInformation;
  tSt:TSystime;
begin
  GetTimeZoneInformation(tTzi);
  vDate:=tTzi.bias/自定义整数；
  tSetDate:=tDate+Vdate;
  with tSt do
  begin
    ...
    wHour:=StrToInt(Formatdatetime('hh',tSetdate));
    ...
  end;
  SetPCSystem:=SetSystemTime(tSt);
end;
试试看，当然，给分了，：-） 

Answer 3

你选中SetLocalInfo,然后按F1,查一下SetLocalInfo函数属于哪一类,把它添加上就可以了(在uses后),具体的我不记得了,你查一下就可以了.我想是可行的.我用过.时间太久了,忘记了.