如何设置系统的时间(50分)

weblogic_li · 2002-03-28

如何设置系统的时间，包括设置、修改和锁定（程序运行期间不允许修改系统的日期和时间） 谢谢

zhihuali · 2002-03-28

var   systime: TSystemTime; begin   systime.wyear := 2002;   systime.wmonth := 5;   systime.wday := 23;     ....   setsystemtime(systime); end;

GanQuan · 2002-03-28

设置和修改可以用SetsystemTime，时间是国际标准的。 delphi还提供了另外一个函数来设置本机系统时间，推荐使用！   SetLocalTime(dt: TSystemTime) >>锁定（程序运行期间不允许修改系统的日期和时间） 就别想了！不过看你具体给什么人用了。看下面连接 http://www.delphibbs.com/delphibbs/dispq.asp?lid=282187

Bahl · 2002-04-15

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

Shenxinaz · 2002-04-17

大家想一想，可以在BIOS里面改系统时间，可以在DOS窗口改系统时间，所以基本上是不可能防止别人修改时间了。 但是win2000好像可以限制很多东西不能修改，不过要用用户权限。 我想你的程序可以从别的角度考虑一下，比如验证时间时用服务器时间而不是本地时间， 甚至可以去取Internet时间。这样就不要不让用户改时间拉。

PFans · 2002-04-19

procedure TForm1.Button1Click(Sender: TObject); var   MyST:TSystemTime;   begin     with MyST do       begin         wYear:=1998;         wMonth:=12;         wDay:=7;         wHour:=8;         wMinute:=9;         wSecond:=10;       end;     SetSystemTime(MyST);   end; end;

yxjdelphi · 2002-04-19

听听, 觉得http://www.delphibbs.com/delphibbs/dispq.asp?lid=282187 这zhao太损,

如何设置系统的时间(50分)

weblogic_li

Unregistered / Unconfirmed

zhihuali

Unregistered / Unconfirmed

GanQuan

Unregistered / Unconfirmed

Bahl

Unregistered / Unconfirmed

Shenxinaz

Unregistered / Unconfirmed

PFans

Unregistered / Unconfirmed

yxjdelphi

Unregistered / Unconfirmed

Similar threads