H
harmer
Unregistered / Unconfirmed
GUEST, unregistred user!
属性:
MediaPlayer1.AutoRewind:=false;
MediaPlayer1.AutoOpen:=false;
-----------
调用:
function mdplay(i:integer):boolean;
begin
with form1 do
begin
//读入播放文件
filename:=ShellListView1.Folders.PathName;
filetime:=datetimetostr(filedatetodatetime(fileage(filename)));
//
MediaPlayer1.FileName:=filename;
MediaPlayer1.DeviceType:=dtAutoSelect;
MediaPlayer1.Display := Panel1;
MediaPlayer1.AutoRewind:=true;
MediaPlayer1.AutoOpen:=true;
MediaPlayer1.Open;
MediaPlayer1.DisplayRect :=Panel1.ClientRect;//MediaPlayer1.DisplayRect :=Rect(1, 1, Panel1.Width - 2, Panel1.Height - 2);
MediaPlayer1.Play;
end;
result:=true;
end;
MediaPlayer1.AutoRewind:=false;
MediaPlayer1.AutoOpen:=false;
-----------
调用:
function mdplay(i:integer):boolean;
begin
with form1 do
begin
//读入播放文件
filename:=ShellListView1.Folders.PathName;
filetime:=datetimetostr(filedatetodatetime(fileage(filename)));
//
MediaPlayer1.FileName:=filename;
MediaPlayer1.DeviceType:=dtAutoSelect;
MediaPlayer1.Display := Panel1;
MediaPlayer1.AutoRewind:=true;
MediaPlayer1.AutoOpen:=true;
MediaPlayer1.Open;
MediaPlayer1.DisplayRect :=Panel1.ClientRect;//MediaPlayer1.DisplayRect :=Rect(1, 1, Panel1.Width - 2, Panel1.Height - 2);
MediaPlayer1.Play;
end;
result:=true;
end;