[moo2k]

Код:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  DC: HDC; 
  Canvas: TCanvas; 
  B: TBitmap; 
begin 
  Canvas := TCanvas.Create; 
  B := TBitmap.Create; 
  DC := GetDC(mplayer1.handle); 
  try 
    Canvas.Handle := DC; 
    with MPlayer1 do 
    begin 
      B.Width := Width; 
      B.Height := Height; 
      B.Canvas.CopyRect(Rect(0, 0, Width, Height), 
      Canvas, Rect(0, 0, Width, Height)); 
      B.SaveToFile('c:\cadr.bmp'); 
    end 
  finally 
    ReleaseDC(0, DC); 
    B.Free; 
    Canvas.Free 
  end 

end;