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

Просто:

VideoWindow.Put_MessageDrain(GetDesktopWindow);
VideoWindow.Put_Owner(GetDesktopWindow);

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

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

Здравствуйте, 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;

Здравствуйте, 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>

Но так он выодит поверх рабоиконок, мне надо под ними

LPV>Но так он выодит поверх рабоиконок, мне надо под ними

пиши свой рендерер (сампл рендерера "sampvid" есть в SDK)
и рисовать нужно в DirectDraw оверлэй сёрфэйс, где в качестве key color указан цвет десктопа.

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

LPV>Но так он выодит поверх рабоиконок, мне надо под ними

А работоспособность иконок во время такого поигрывания важна?