[angvelem]

Обе функции работают одинаково, у них и код практически один в один. Фреймы в обоих случаях выдаются те, что запрошены. Во-втором случае вызывал так:

Код:

procedure TForm1.Button22Click(Sender: TObject);
var
  DC : HDC;
begin
  DC := CreateDC('Display', nil, nil, nil);
  GetAVIFrame('earth.avi', DC, image1.Picture.Bitmap, 3);
  DeleteDC(DC);
end;