5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
marysxj 2001-10-30
- 打赏
- 举报
你选中SetLocalInfo,然后按F1,查一下SetLocalInfo函数属于哪一类,把它添加上就可以了(在uses后),具体的我不记得了,你查一下就可以了.我想是可行的.我用过.时间太久了,忘记了.
962veiri 2001-10-29
- 打赏
- 举报
我再看看
usb 2001-10-29
- 打赏
- 举报
962veiri: 错误很多呀，:-(
962veiri 2001-10-29
- 打赏
- 举报
给你一段参考程序（不完全，但是思想完全，字太多，我不想打），：）
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;
试试看，当然，给分了，：-）
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;
试试看，当然，给分了，：-）
usb 2001-10-29
- 打赏
- 举报
不行啊！undeclared identifier: 'SetLocalInfo'. 需要在uses加什么？
marysxj 2001-10-29
- 打赏
- 举报
SetLocalInfo(LOCALE_USER_DEFAULT,'hh:mm:ss',LOCALE_STIME);
sendmessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,0);
试一试行不行.
sendmessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,0);
试一试行不行.
