Видео в Delphi

[abv1]

Здравствуйте. Есть несколько вопросов:
1) Как сделать так, чтобы при использовании WMPLib_TLB при нажатии на кнопку открывался Windows Media Player в полноэкранном режиме, причем открывал определенную видеозапись, например: C:\video.avi
2) При использовании DirectShow при выполнении программы появляется окно ActiveMovie Window. Видеозапись оно проигрывает, но ее нельзя приостановить. Можно ли это как-то сделать? Код к последнему:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer,  DirectShow9, ActiveX, ComObj, ShellAPI;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyGraphBuilder: IGraphBuilder;
  MyMediaControl: IMediaControl;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

 CoInitialize(nil);

  CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER,
    IID_IGraphBuilder, MyGraphBuilder);

  MyGraphBuilder.RenderFile('C:\video.avi', nil);
 
  MyGraphBuilder.QueryInterface(IID_IMediaControl, MyMediaControl);


  MyMediaControl.Run;

  CoUninitialize;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     self.WindowState := wsMinimized;
   ShellExecute(Handle, 'open', PChar('C:\Презентация1.pptx'), nil, nil, SW_SHOWMAXIMIZED);
     self.WindowState := wsNormal;
end;

end.