function captura_pantalla(HCLIENT: integer; pantalla: Pchar; Var longitud: integer; tout: integer ):bool;