Ver Mensaje Individual
  #4  
Antiguo 11-12-2010
MaxiDucoli MaxiDucoli is offline
Miembro
 
Registrado: feb 2006
Posts: 134
Reputación: 19
MaxiDucoli Va por buen camino
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;
Responder Con Cita