Para hacer lo que quieres solo tienes que incluir las Jedi, poner en el formulario un TJvAVICapture de nombre Avicap y añadir la procedure
siguiente. Añade un TImage en el formulario y asignale la imagen que tiene la variable pic. Puedes asignar al Timage directamente la imagen del portapapeles. Es un metodo un poco 'guarro', pero funciona; El resto, es cosa tuya
Espero que te sea de ayuda
Un saludo
Código Delphi
[-]
procedure TMainFormClient.Button1Click(Sender: TObject);
var
pic : TBitmap;
begin
try
AviCap.DriverIndex := 0;
AviCap.Previewing := true;
except
on E: Exception do ;
end;
pic := TBitmap.Create;
avicap.copytoclipboard;
if Clipboard.HasFormat(CF_BITMAP) then
begin
pic.Assign(Clipboard);
end;
pic.FreeImage;
FreeAndNil(pic);
end;