主页
Top.Mail.Ru Yandeks.Metrika
论坛:“系统”;
当前存档:2002.07.25;
下载:[xml.tar.bz2];

向下

您如何确定系统时间的变化 找到类似的分支


cdaDmitriy   (2002-05-01 14:45) [0]

关于WM_TIMECHANGE不能说我知道但对我而言
因为时间变化很多,这是必要的

过程WMTimeChange(var Message:TMessage); 消息WM_TIMECHANGE;

过程TForm1.WMTimeChange(var Message:TMessage); 开始
Inc(伯爵);
Label1.Caption:=“更改时间”+ IntTostr(计数);
Label2.Caption:= INTTOSTR(Message.WParam)+“”+ INTTOSTR(Message.lParam);
继承;
endzh



cdaDmitriy   (2002-05-02 08:46) [1]

?????



Ka$per   (2002-05-02 10:07) [2]

总的来说,问题并不完全清楚
试试这个:
var d:TDateTime; ..... d:=现在; ...... d:=现在-d;
d - 天数之间的差异,
它只能转化为分钟(秒等)



cdaDmitriy   (2002-05-02 11:17) [3]

应用程序在更改系统时间后向所有Windows窗口发送消息。


在更改(替换)系统时间后,应用程序向所有顶级窗口发送WM_TIMECHANGE消息。

但是,这种变化已经过去了。我需要多少时间

例如,它是10:23:34用户更改为11:23:34

我需要在更改后获得D = 1小时



Dima-k17   (2002-05-02 12:56) [4]

我完全不明白,但在我看来,这里有关于如何从一次减去另一个的信息。 如果找到它,则必须不断监视检查当前时间。 在更改发生后,捕获已经成为的时间,然后从1中减去2。



JC   (2002-05-02 16:15) [5]

每隔第n次尝试(1秒)以获得当前的一个,然后比较如果更改超过n,则计算
D = [当前时间] - [最后记忆] -n ...



cdaDmitriy   (2002-05-05 11:32) [6]

也许还有别的????



anod   (2002-05-05 16:55) [7]

那么wParam和lParam呢?



Набережных С.   (2002-05-05 18:15) [8]

显然,您可以在启动程序时执行以下操作:
TC:= GetTickCount;
Dt:=现在;
当您收到消息时,使用它们来计算更改。 为了消除溢出的可能性,您可以更新变量,比如每10小时或10天,或者......



cdaDmitriy   (2002-05-06 08:42) [9]

> anod©

应用程序在更改系统时间后向所有Windows窗口发送消息。

WM_TIMECHANGE
wParam = 0; //未使用,必须为零
lParam = 0; //未使用,必须为零


要将处理器挂在Timer上,这是不可取的

也许还有别的????

问题非常关键客户批准不要改变这一点
时间我想(驯服)



leshy   (2002-05-06 09:35) [10]

如果用户手动更改时间,即通过自己使用鼠标,应用程序将失去焦点。 为什么不使用损失/增益事件来启动/停止时间控制?



cdaDmitriy   (2002-05-06 09:59) [11]

>勒希

应用程序非常大~100窗口和每个控件

跟踪损失/增益事件很困难

此外,应用程序并不总是有效。

需要一点时间改变记录器



Cobalt   (2002-05-07 05:41) [12]

完全赞同Naberezhnye S.(05.05.02 18:15)
记住GetTickCount和加载时的当前日期。
当您捕获WM_TIMECHANGE时,比较(GetTickCount和记忆的日期之间的差异)以及当前日期和记忆日期之间的差异(以毫秒为单位)。 如果差异> 1分钟,那么这意味着调情。

还有一个记录器......还有一个记录器? 几乎一样。
下载<repeat>
当您捕获WM_TIMECHANGE时,您将记录新时间(已设置),以及应根据您的计算得出的时间(即,TickCount的差异将转换为秒/分钟/小时/天+保存日期)。 这都是作为线程加密的(因此它在文本编辑器中不可见),并告诉客户她据称记录了一些内部过程的结果。



Страницы: 1 整个分支

论坛:“系统”;
当前存档:2002.07.25;
下载:[xml.tar.bz2];

楼上









内存:0.6 MB
时间:0.024 c
14-81447
Sergey_
2002-06-27 15:03
2002.07.25
请告诉我,我在哪里可以找到Delphi的图标?


3-81125
DKalinin
2002-07-02 15:31
2002.07.25
что это? - Rowset position cannot be restarted


3-81170
KIR
2002-07-03 01:04
2002.07.25
多么悖论的错误


1-81261
博镇
2002-07-15 01:23
2002.07.25
告诉我有关线程的信息....


1-81313
疯子
2002-07-12 15:29
2002.07.25
好的PANCAKE !!!!!!!!! 定位





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法文
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本性玩偶 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 泰米尔人 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский