Ok amigo, no habia entrado mil disculpas, el codigo es el siguiente:
IF Ventana <> 0 THEN
BEGIN
Guardar.FileName := 'Captura de la imagen';
Guardar.DefaultExt := 'jpg';
Guardar.Filter := 'Fichero kpg (*.jpg)*.jpg';
SendMessage(Ventana, WM_CAP_SAVEDIB, 0,
longint(pchar('c:\foto.jpg')));
Última edición por ronald_tro fecha: 23-02-2009 a las 06:04:08.
|