获得系统时间(100分)

各位大侠：<br>&nbsp; &nbsp; 请问怎样或的系统的最底层时间（就是指改变开始工具栏中的时钟数值，也不变的时间。），<br>不是指NOW（系统时间）。

没有明白你在说什么问题!

那就不知道了，呵呵。

不太明白你的意思，是这个吗？<br>&nbsp; winExec('rundll32.exe shell32.dll,Control_RunDLL Timedate.Cpl',SW_ShowNORMAL);<br>

不可能吧，那是什么时间？CMOS的时间也会跟着任务栏上的时间改啊

系统中没有这种时间，你是做的东西是不是要取到时间，当是你又怕用户修改时间才提出这<br>个问题？如果是你要用其他方法解决这个问题。

我也想知道

用GetSystemTime(p)函数<br>p是SYSTEMTIME结构体的指针

我在梦中吗……

不明白你的意思呀！要想改时间用API函数呀，可以看前几天的帖子

你可以试试看取得服务器的时间嘛,那个东西不是任何用户都可以改的.<br>sqlserver下面用select getdate()

调服务器时间吧<br>

GetTickCount函数返回系统开机到现在的毫秒数，<br>该数值不受设置时间的影响。

我也有这个问题，编写的控制软件根据时间来进行操作判断<br>如果用户自己修改了时间，那软件自然也就无法到达正确的运行效果了<br>大家有什么好的办法呢？除了连入internet（机器为单机）获取时间

zhukewen的办法不错！<br>GetLocalTime（）

在DELPHI下读取与设置系统时钟<br><br>很多朋友都想在自己的程序中显示系统时间<br><br>这在DELPHI中十分容易<br><br>利用DateToStr(Date)及TimeToStr(Time)函数即可实现。<br><br><br>二者的函数原型如下:<br><br>function DateToStr(Date:TDateTime):string;<br><br>function TimeToStr(Time:TDateTime):string;<br><br>其返回值均为String型。<br><br>在程序中我们可以这样使用:<br><br>Label1.Caption:=DateToStr(Date);<br><br>Lable2.Caption:=TimeToStr(Time);<br><br>二者分别调用了Delphi函数Date和Time读取系统日期和时间来实现的<br><br>但只能读系统时钟<br><br>而不能设置系统时钟。那么如何处理这一问题呢？这正是本文所要讨论的问题。<br><br>既然Delphi没有提供如此功能<br><br>但Delphi提供了调用WindowsAPI的接口。所以我们可以调用WindowsAPI函数来实现这一功能。具体方法如下:<br><br>procedure TForm1.Button1Click(Sender:TObject);<br><br>begin<br><br>Edit1.Text:='97/10/30 10:09:59'; ／／注意:控制面板内时间格式要为YY／MM／DD<br><br>end;<br><br>procedure TForm1.Button2Click(Sender:TObject);<br><br>var 　　systemtime:Tsystemtime;<br><br>DateTime:TDateTime;<br><br>begin<br><br>DateTime:=StrToDateTime(Edit1.text); //获得时间（TDateTime格式）<br><br>DateTimeToSystemTime(DateTime<br><br>systemtime); //把Delphi的TDateTime格式转化为API的TSystemTime格式<br><br>SetLocalTime(SystemTime); //设置系统时间<br><br>GetLocalTime(SystemTime); //读取系统时间<br><br>DateTime:=SystemTimeToDateTime(SystemTime); //把API的TSystemTime格式 转化为 Delphi的TDateTime格式<br><br>Edit2.Text:=DateTimeToStr(DateTime); //显示当前系统的时间<br><br>end;<br><br>另外<br><br>还有好多其它的Delphi函数和API函数供我们使用<br><br>如:　　StrToDate、StrToTime、DateTimeToStr、StrToDateTime、DateTimeToSystemTime、SystemTimeToDateTime、DateTimeToTimeStamp、TimeStampToDateTimeCompareFileTime、DosDateTimeToFileTime、FileTimeToDosDateTime、FileTimeToLocalFileTime、FileTimeToSystemTime、GetFileTime、SetFileTime、GetSystemTime(格林威治时间)、SetSystemTime.GetSystemTimeAdjustment<br><br>SetSystemTimdAdjustment。<br><br><br>//TSystemTime的格式<br><br>PSystemTime = ^TSystemTime;<br><br>TSystemTime = record<br><br>wYear: Word;<br><br>wMonth: Word;<br><br>wDayOfWeek: Word; //当前的系统时间是星期几<br><br>wDay: Word;<br><br>wHour: Word;<br><br>wMinute: Word;<br><br>wSecond: Word;<br><br>wMilliseconds: Word;<br><br>end;<br><br>//TDateTime的格式<br><br>TDateTime = type Double<br><br><br>具体我们可以查Delphi所带的Win32.HLP(WindowsAPI帮助文件)<br><br>它在Delphi2.0ιHelp或Delphi3ιHelp目录下。

爱因斯坦说：时间也是相对的。