Создание MediaPlayer методами DirectShow

[AlexFAst]

Всем Привет !
Помогите разобраться как воспроизводить видеофайлы методами DirectShow

[uberchel]

Вот накрапал функцию Воспроизведения :
Воспроизводит почти все форматы и DVD,FLV,MP1-4,OGG,FLAC,APE и т.д.

uses 
 DShow, ActiveX;

...

function PlayMediaFile(FileName: string; Display: TWinControl): Boolean;
var
  FName: PWideChar;
  VideoWindow: IVideoWindow;
  MediaControl: IMediaControl;
  GraphicControl: IGraphBuilder;
begin
 Result:= CoInitialize(nil);
 FNAme:= PWideChar(WideString(FileName));
 CoCreateInstance(CLSID_FilterGraph, nil,CLSCTX_INPROC_SERVER, IID_IGraphBuilder, GraphicControl);
 try
  with GraphicControl do begin
   QueryInterface(IID_IMediaControl, MediaControl);
   QueryInterface(IID_IVideoWindow, VideoWindow);
   RenderFile(FName, nil);
  end;
  with VideoWindow do begin
   put_Owner(Display.Handle);
   put_WindowStyle(WS_CHILD or WS_CLIPSIBLINGS);
   SetWindowPosition(0, 0, Display.ClientRect.Right, Display.ClientRect.Bottom);
  end;
 except
  RaiseLastWin32Error;
  CoUninitialize;
  Result:= False;
 end;
 MediaControl._AddRef;
 MediaControl.Run;
 Result:= True;
end;