asi guardas la imagen
procedure TFrmVidCp.FrmVidCpBtn3Click(Sender: TObject);
var
b : TBitmap;
begin
IF Ventana <> 0 THEN
BEGIN
b := TBitmap.Create;
Guardar.FileName := 'Captura de la imagen';
Guardar.DefaultExt := 'bmp';
Guardar.Filter := 'Fichero Bitmap (*.bmp)*.bmp';
IF Guardar.Execute THEN
SendMessage(Ventana, WM_CAP_EDIT_COPY, 0,0);
b.LoadFromClipboardFormat (cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
b.SaveToFile(Guardar.FileName );
b.Free;
END;
end;
|