问题请教，多媒体的
为什么下面这段代码并不能播放mp3音乐啊，我实在不知道怎么错了
unit clock;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, MPlayer;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Timer1: TTimer;
MediaPlayer1: TMediaPlayer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime:TDateTime;
str:string;
str1:string;
begin
DateTime:=Time;
str:=Timetostr(DateTime);
str1:=edit1.Text;
// if(str=str1) then
// begin
Mediaplayer1.FileName:='E:\Projects\01hdh.mp3';
Mediaplayer1.AutoOpen:=true;
ShowHint := True;
Mediaplayer1.Play;
// end;
end;
end.
问题点数：0、回复次数：5Top
1 楼cbdiy（暂无）回复于 2003-10-01 00:46:33 得分 0
Mediaplayer1.openTop
2 楼killme2008（为了生态平衡，请保护蛤蟆）回复于 2003-10-01 00:52:12 得分 0
我改成open也不行啊Top
3 楼killme2008（为了生态平衡，请保护蛤蟆）回复于 2003-10-01 00:54:00 得分 0
而且我希望它自动播放，而不是我去控制Top
4 楼cbdiy（暂无）回复于 2003-10-01 01:29:46 得分 0
报什么错？？Top
5 楼killme2008（为了生态平衡，请保护蛤蟆）回复于 2003-10-01 09:09:40 得分 0
没什么错
就是按开始的时候不能播放，自动停止，这是为什么？？？用其他播放软件放可以啊
而且请问，怎么让它自动播放？？Top
