Видео окно Тв-тюнера

// глобальные переменные
var
  Form1: TForm1;
  hMovie:HWND; // handle видеоокна
  m_RectDlg:TRect;
  m_bMoveWindow:bool;
  Point,m_MouseInDlg: TPoint;
  OldWindowProc : Pointer; {Variable for the old windows proc}

//==========================
//  Этот кусок можно прописать, например, в  TForm1.FormCreate
//  Задаем Caption видеоокна:
  pVideoWindow.put_Caption('!*Das_Rainstuff_movie*!');

//  находим наше видеоокно (оно прикреплено к панели Panel1)
  hMovie:=FindWindowEx(Panel1.Handle,0,nil,PChar('!*Das_Rainstuff_movie*!'));
  if hMovie<>0 then begin
  //Устанавливаем новый обработчик окна, а старый запоминаем:
  OldWindowProc := Pointer(SetWindowLong(hnd,
                                         GWL_WNDPROC,
                                         LongInt(@NewWindowProc)));
  end;


//==========================
function NewWindowProc(WindowHandle : hWnd;
                       TheMessage   : LongInt;
                       ParamW       : LongInt;
                       ParamL       : LongInt) : LongInt stdcall;
begin

  if TheMessage=WM_LBUTTONDOWN then begin
    // выставим флажок - пошло перетаскивание
    m_bMoveWindow:= TRUE;
    // все сообщения от мыши - к нашему окну, независимо от координат
    // чтобы мышь не улетала с окна при быстром движении
     SetCapture(hMovie);
    // сохраняем координаты окна
    GetWindowRect(Form1.Handle,m_RectDlg);
    // сохраняем положение мышки внутри окна программы
    point.X:=LOWORD(ParamL);
    point.Y:=HIWORD(ParamL);
   
   // логики мало, но именно так работает верно:
    m_MouseInDlg.Y:=point.X;
    m_MouseInDlg.X:=point.Y;
  end;

  if TheMessage=WM_MOUSEMOVE then begin
if (m_bMoveWindow) // надо тащить
  then
    begin
    point.X:=HIWORD(ParamL);
    point.Y:=LOWORD(ParamL);
    // двигаем окно в соответствии с новыми координатами мыши
    SetWindowPos(Form1.Handle,HWND_TOP,
            Form1.Left +(point.y- m_MouseInDlg.y),
            Form1.Top  +(point.x- m_MouseInDlg.x),
            m_RectDlg.right - m_RectDlg.left,
            m_RectDlg.bottom - m_RectDlg.top,
            SWP_SHOWWINDOW);
    end;
  end;

  if TheMessage=WM_LBUTTONUP then begin
    // перетаскивание закончилось
    m_bMoveWindow:= FALSE;
    // "отпускаем" мышку
    ReleaseCapture();
  end;

 {Вызываем оригинальный обработчик}
  Result := CallWindowProc(OldWindowProc,
                           WindowHandle,
                           TheMessage,
                           ParamW,
                           ParamL);

end;

    function GetCurrentImage(var BufferSize: Longint; pDIBImage: Pointer):HResult; stdcall;

procedure TForm1.Button4Click(Sender: PObj);
var
hr:integer;
pGetIm:IBasicVideo;
Buff:longint;
pMC: IMediaControl;
BFH: TBITMAPFILEHEADER;
lpbf: array of byte;
Stream: PStream;
begin
//========
//Создаём новый поток:
Stream:=NewMemoryStream;

//Запрашиваем интерфейс для управления видеопотоком IMediaControl
hr := pFilterGraph.QueryInterface(IID_IMediaControl, pMC);
if (hr <> NOERROR) then raise Exception.Create(e_Abort,'Unable create instance of IMediaControl');

//Приостанвливаем видеопоток
pMC.Pause; // или pMC.Stop;

// Запрашиваем интерфейс IBasicVideo у нашего рендерера:
hr:=pVideoRender.QueryInterface(IID_IBasicVideo, pGetIm);
if(hr <> NOERROR) then raise Exception.Create(e_Abort,'Unable create instance of IBasicVideo');
Buff:=0;

//Получаем размер изображения, для этого вторым параметром передаём nil;
hr:=pGetIm.GetCurrentImage(Buff,nil);
if(hr <> NOERROR) then raise Exception.Create(e_Abort,'Unable get size of image!');

//Задаём размер буфера и снова вызываем функцию
SetLength(lpbf,Buff);
hr:=pGetIm.GetCurrentImage(Buff,lpbf);
if(hr <> NOERROR) then raise Exception.Create(e_Abort,'Unable get Dib image!');

//Заполняем хедер нашего изображеия
      BFH.bfType      := $4d42; // BM   - тип изображения
      BFH.bfSize      := sizeof(TBITMAPFILEHEADER) + Buff; // размер изображения
      BFH.bfReserved1 := 0;
      BFH.bfReserved2 := 0;
      BFH.bfOffBits   := sizeof(TBITMAPFILEHEADER); // смещение, после  которого заканчивается хедер и начинается изображение

// Пишем это всё последовательно в наш поток, а потом в файл:
      Stream.Write(BFH, SizeOf(TBITMAPFILEHEADER)); 
      Stream.Write(lpbf[0],Buff);
      Stream.Position :=0;
      Stream.SaveToFile('c:\myshot.bmp',0,Buff+sizeof(TBITMAPFILEHEADER));

// Запускаем видеопоток:
pMC.Run;

//Пуск и остановка видеопотока, в принципе, не обязательны - GetCurrentImage отрабатывает и без них.
end;