Здравствуйте, NSP, Вы писали:
NSP>Здравствуйте, LuuuPV, Вы писали:
LPV>>А по потробнее можно
NSP>ПСамый простой вариант,пожалуйста:
NSP>NSP>...
NSP>VideoWindow: IVideoWindow;
NSP>MYGraphBuilder: IGraphBuilder;
NSP>MYMediaControl: IMediaControl;
NSP>...
NSP>begin
NSP>...
NSP>CoInitialize(nil);
NSP>CoCreateInstance(CLSID_FilterGraph,nil,CLSCTX_INPROC_SERVER,IID_IGraphBuilder,MyGraphBuilder);
NSP>MyGraphBuilder.RenderFile('MediaFile.avi',nil);
NSP>MYGraphBuilder.QueryInterface(IID_IMediaControl,MYMediaControl);
NSP>MyGraphBuilder.QueryInterface(IID_IVideoWindow,VideoWindow);
NSP>VideoWindow.Put_MessageDrain(GetDesktopWindow); //не обязательно
NSP>VideoWindow.Put_Owner(GetDesktopWindow);
NSP>VideoWindow.Put_WindowStyle(WS_CHILD OR WS_CLIPSIBLINGS);
NSP>VideoWindow.SetWindowPosition(0,0,Screen.Width,Screen.Height);
NSP>MyMediaControl.Run;
NSP>...
NSP>end;
NSP>
Но так он выодит поверх рабоиконок, мне надо под ними
