这个问题怎么样解决??时间问题!!(100分)

  • 主题发起人 主题发起人 sforever
  • 开始时间 开始时间
S

sforever

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么让一个程序在20分钟或30分钟运行一次
例如,让一个程序20分钟发一次邮件等。。。。。

希望给出代码来说明!!!
 
用个timer控件就行了吧
 
timer1.Enabled:=true;
timer1.Interval:=20*60*1000;//每20分钟执行一次

要执行的内容可以在OnTimer中设置
 
你可以让你的程序在后台执行,用Timer控件控制时间,如楼上所说
 
在ontimer事件加入发邮件程序段:
Nmsmtp1.Host :='smtp.sina.com.cn';
nmsmtp1.Port :=25;
nmsmtp1.UserID :='xxxx';//发信人的用户名,必须是真实的
nmsmtp1.ReportLevel :=1;
Nmsmtp1.TimeOut :=10000;
nmsmtp1.Connect ; ; ;///连接

; nmsmtp1.PostMessage.FromAddress:='xxxx@sina.com'; //发信人的电子邮件地址
; nmsmtp1.PostMessage.ToAddress.text:='aaaa@sina.com';
; nmsmtp1.PostMessage.Body:='hello!';
; nmsmtp1.PostMessage.Subject :='没事,发个邮件玩玩!';
;//nmsmtp1.PostMessage.Attachments.text:='c:/aa.zip'; //附件
nmsmtp1.SendMail;
 
多人接受答案了。
 
后退
顶部