Здравствуйте, LuuuPV, Вы писали:

LPV>А по потробнее можно

ПСамый простой вариант,пожалуйста:

...
VideoWindow: IVideoWindow;
MYGraphBuilder: IGraphBuilder;
MYMediaControl: IMediaControl;
...
begin
...
CoInitialize(nil);
CoCreateInstance(CLSID_FilterGraph,nil,CLSCTX_INPROC_SERVER,IID_IGraphBuilder,MyGraphBuilder);
MyGraphBuilder.RenderFile('MediaFile.avi',nil);
MYGraphBuilder.QueryInterface(IID_IMediaControl,MYMediaControl);
MyGraphBuilder.QueryInterface(IID_IVideoWindow,VideoWindow);

VideoWindow.Put_MessageDrain(GetDesktopWindow); //не обязательно
VideoWindow.Put_Owner(GetDesktopWindow);
VideoWindow.Put_WindowStyle(WS_CHILD OR WS_CLIPSIBLINGS);
VideoWindow.SetWindowPosition(0,0,Screen.Width,Screen.Height);
MyMediaControl.Run;
...
end;