A asbeforelong Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #1 帮忙弄一段代码,基本要求,可以任意设定年,月,日,时,分,到达指定时间自动播放同目录下的wav格式文件。大虾给出详细的代码和注释给200分!类似某些定时软件。
C chatop Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #2 我要100分 要原码可以发EMAIL 给我 chatop@cnnb.net
刘 刘芳 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #3 chatop您好: 看到http://www.delphibbs.com/delphibbs/dispq.asp?lid=1546143 上您说您有定时调度程序,可以给我一份吗?分数没问题,不过也不多! 我在dfw上也提问了,可是没人回答! http://www.delphibbs.com/delphibbs/dispq.asp?lid=1418846 刘芳 lfdotey@sina.com 2002-12-29
chatop您好: 看到http://www.delphibbs.com/delphibbs/dispq.asp?lid=1546143 上您说您有定时调度程序,可以给我一份吗?分数没问题,不过也不多! 我在dfw上也提问了,可是没人回答! http://www.delphibbs.com/delphibbs/dispq.asp?lid=1418846 刘芳 lfdotey@sina.com 2002-12-29
A asbeforelong Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #4 大体上: procedure TForm1.Timer1Timer(Sender: TObject); begin if FormatDateTime('hh'+'nn'+'ss', now)=ComboBox3.Text+ComboBox4.Text+'00' then Showmessage('到时间了!嘿嘿,我说呢,到时间啦啦!!!!快点行动!!!!到时间了!!到时间了!到时间了!!到时间了!到时间了!!到时间了!到时间了!!到时间了!到时间了!!到时间了!到时间了!!'); end; ^_^,在“穿越沦陷的爱”的提示下搞定了,chatop,也给你100分咯,发给我也参考一下 asbeforelong@sina.com
大体上: procedure TForm1.Timer1Timer(Sender: TObject); begin if FormatDateTime('hh'+'nn'+'ss', now)=ComboBox3.Text+ComboBox4.Text+'00' then Showmessage('到时间了!嘿嘿,我说呢,到时间啦啦!!!!快点行动!!!!到时间了!!到时间了!到时间了!!到时间了!到时间了!!到时间了!到时间了!!到时间了!到时间了!!到时间了!到时间了!!'); end; ^_^,在“穿越沦陷的爱”的提示下搞定了,chatop,也给你100分咯,发给我也参考一下 asbeforelong@sina.com
A asbeforelong Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #6 //播放wav文件,注意:需要事先在uses中声明MMSystem SndPlaySound('Windows XP 启动.wav',SND_ASYNC);