如何实现在delphi中获取局域网上机器的系统时间？

Question

用winexec实现net time
winexec(pchar('command.com/c net time \\'+hostname+'>c:\thetime.txt'),sw_hide);

Answer 1

1、楼上是一种方法！
2、你也可以使用做一程序，一客户端，一服务器端。客户端永远监听从服务器端传来的时间信息，可用indyclient、indyserver具体可参考其help,其help文档上写的很清楚。
3、可利用数据库查询，如：
select date() as CurDate,time() as CurTime (在Access中）
select convert(varchar(10),getdate(),120) as CurDate,convert(varchar(8),getdate(),114) as CurTime 
然后，你客户端应用程序获取某台计算机的时间时，打开那台计算机上的视图或者存储过程即可。
不是什么好方法，请参考！好运！