小弟刚刚学习delphi，因个人需要作了这东西，在这里贴出来请各位前辈多多指点！谢谢 其中使用了abc控件，要的请到www.51delphi.com下载；
还有禁止多次运行程序的代码是copy这里的。
![]()
appname='time'>'' then
begin
MediaPlayer1.Open;
MediaPlayer1.Play;
end
else
ShowMessage('没有设置音乐文件！');
end; procedure TForm1.Button4Click(Sender: TObject);
begin
if OpenDialog1.FileName<>'' then
begin
if MaskEdit1.Text<>' : : ' then
Timer1.Enabled:=True
else if MaskEdit2.Text<>' : : ' then
Timer1.Enabled:=True
else
ShowMessage('没有设置定时时间！');
end
else
ShowMessage('没有设置音乐文件！');
end; procedure TForm1.Timer1Timer(Sender: TObject);
var
h, m, s, ms: word;
DE:string;
begin
DecodeTime(now, h, m, s, ms);
DE:=formatdatetime('hh:nn:ss', now);
if DE=MaskEdit1.Text then
Timer3.Enabled:=True
else if DE=MaskEdit2.Text then
Timer3.Enabled:=True;
end; procedure TForm1.Button5Click(Sender: TObject);
begin
try
MediaPlayer1.Stop;
except
ShowMessage('播放器没有启动！');
end;
end; procedure TForm1.FormCreate(Sender: TObject);
begin
MaskEdit1.Clear;
MaskEdit2.Clear;
Timer2.Enabled:=True;
end; procedure TForm1.Timer2Timer(Sender: TObject);
var
h, m, s, ms: word;
DT:string;
begin
DecodeTime(now, h, m, s, ms);
DT:=formatdatetime('hh:nn:ss', now);
Label3.Caption:=DT;
end; procedure TForm1.Timer3Timer(Sender: TObject);
begin
//abcTrayIcon1.ShowForm;
Button1.Enabled:=True;
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;
Timer3.Enabled:=False;
end; procedure TForm1.N1Click(Sender: TObject);
begin
Close;
end; procedure TForm1.N2Click(Sender: TObject);
begin
ShowMessage('>>>强强制造<<<');
end; procedure TForm1.ype1Click(Sender: TObject);
begin
abcTrayIcon1.ShowForm;
end; procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle,SW_HIDE);
end; end.
附加檔案：34316_time.rar
發表時間：2003-07-20 21:42:56
IP:218.19.xxx.xxx 未訂閱
