procedure Tform1.WMGraphNotify(var Msg: TMessage);
var
evCode:integer;
lParam1,lParam2:integer;
begin
while MediaEvent.GetEvent(evCode,lParam1,lParam2,0)=s_ok do
begin
if evCode=EC_COMPLETE then
begin
VideoWindow.put_Visible(False);
VideoWindow.put_Owner(0);
VideoWindow:=nil;
MediaEvent:=nil;
MediaControl:=nil;
Graph:=nil;
Exit;
end
end
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
BasicAudio.put_Volume(Trackbar1.Position-10000);
end;
if opendialog1.execute then
opendialog1.filename:=mediaplayer1.filename;
mediaplayer1.open;
mediaplayer1.play;
mediaplayer1.display:=panel1;
mediaplayer1.dispalyrect:=rect(panel1.width-6,panel1.height-6,0,0);