这是一个实现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;
