Delphi - a call to an OS function failed

Hola,

Tengo una regilla de tipo CxGRID (ExpressQuantumGrid); y recorro uno a uno los registros del mismo, y envío un mail por cada registro existente si terminar de enviar todos los registros antes de que se ponga el protector de pantalla funciona correctamente; pero a veces son muchos registros y la gente que trabaja con esta pantalla lo deja procesando; en esos caso se produce un error ya q después de un tiempo X salta el protector de pantalla; he pensado de deshabilitar el protector, pero no se debe hacerlo por temas de seguridad (políticas de la empresa).

He "googleado" el error y salen muchas coincidencias, pero no por un mismo motivo sino por varios.

Alguna idea? sugerencia?

Muchas gracias de antemano.

Marcos

Siempre puedes desactivar el salvapantallas al empezar el proceso y volverlo a activar cuando finalice

procedure Tfrm.DesactivaSalvapantallasClick(Sender: TObject);
var tmp: integer;
begin
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, Word(false), @tmp, 0);
end;

Procedure Tfrm.ActivaSalvapantallasClick(Sender: TObject);
var tmp: integer;
begin
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, Word(true), @tmp, 0);
end;

Echale un vistazo a esta pagina para desactivas salvapantallas
http://www.chami.com/tips/delphi/121196D.html

Suerte