Помогите пожалуйста разобраться с медиаплеером [D6, Win95/98, Win2k]
reticon © (2003-03-23 18:26:00)
Уважаемые мастера! Помогите разобраться с медиаплеером.
Имеется 5 файлов AVI, которые необходимо проигрываит поочереди
после нажатия определенной клавиши. С первым файлом прогблем нет -
он начинает играть, но когда приходит очередь длугих то продолжает
играть первый и все.
Процедура такая:
procedure PlayFile(Name:string);
begin
with Form2 do
begin
MP.Close;
MP.Stop;
MP.FileName:=Name;
MP.Open;
MP.DisplayRect:=Rect(0, 0, Form2.Panel1.Width,
Form2.Panel1.Height);
MP.Play;
end;
end;
//нажатие клавиш
procedure TForm1.FormKeyPress(Sender: TObject; var Key:
Char);
begin
case Key of
#49: PlayFile(Label1.Caption);
#50: PlayFile(Label2.Caption);
#51: PlayFile(Label3.Caption);
#52: PlayFile(Label4.Caption);
#53: PlayFile(Label5.Caption);
end;
end;
Помогите пожалуйста разобраться!!!
Song (2003-03-23 20:36:00) [1]
TMediaPlayer.Wait
Наверх 
ЧАТ |
Орешник |
|
