文件名称:Delphi 定时上网功能.rar
文件大小:6KB
文件格式:RAR
更新时间:2022-07-30 06:34:42
Delphi源码-网络相关
这是一个实现Delphi定时上网功能的范例源码,定时打开Internet,这个功能可以编写一些教育辅助软件使用。特别可用于一些家庭电脑防护网络沉迷的功能。不过本程序的功能比较单一,例子中仅是定时上网的功能,仅此而已。 本程序运行前,需要设置好日期时间,和网址,到时用调用浏览器打开该网址。如下代码是关键: begin upnet:=datetostr(DateTimePicker1.date) ' ' timetostr(DateTimePicker2.Time); if (now>strtodatetime(upnet)) then begin ShellExecute(self.Handle,'open',Pchar(Trim(Edit1.Text)),nil,nil,SW_SHOWNORMAL); Timer1.Enabled:=False; end; end;
【文件预览】:
srcfans.com
----定时上网()
--------Project1.res(876B)
--------Unit1.dcu(5KB)
--------Unit1.dfm(2KB)
--------Project1.cfg(434B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(1KB)