안녕하세요.. baby입니다.
음.. 얼마전에.. 전시회를 했었는데..
mpg화일을 돌리려고 폼이 active되었을 때 이런식으로 코딩을 하였습니다.

procedure TForm1.FormActivate(Sender: TObject);
begin
    MediaPlayer1.Filename := 'c:\dtv\tv\toheaven.mpg';
                       MediaPlayer1.Open;
                       MediaPlayer1.Display := Panel1;
                       MediaPlayer1.DisplayRect := Panel1.ClientRect;
                       MediaPlayer1.Play;
end;
근데..
여러번 돌리려고.. 하려면..
그리고 화일을 랜덤하게 돌리려고 하면..
어떻게 코딩해주어야 할까여..
고수님들께.. 자문을 구합니다.
그 머냐.. close시점을 잡는 것도 궁금하네요..
그럼 수고하세요.. 꾸벅..