Red de conocimiento informático - Espacio del host - Código fuente interceptado

Código fuente interceptado

Programa TForm1. GetActiveWndImg

var C:tcan vas; b:TBitmap; h:HDC; r:TRect; mano:THandle

p:TPoint;

j:TJ pegimage;

m, n: entero;

Nombre: carácter del array [0..255]

Inicio

B: = TBitmap. Crear;

C := TCanvas. Create;

GetCurSorPos(P); //Obtiene las coordenadas del área donde se encuentra el mouse

hand:= WindowFromPoint(P); donde se encuentran las coordenadas.

FillChar(name, SizeOf(name), # 0); //

GetWindowText(hand, name, 255 //Obtener el título de la ventana

Si nombre = ' 'entonces CopyMemory(@nombre, PCHAR(inttostr(mano)), Longitud(inttostr(mano))+1); //Usar identificador

Si mano = 0, salir;

H := GetWindowDC(hand); //Obtiene el valor de retorno de la escena del dispositivo Largo de toda la ventana (incluidos bordes, barras de desplazamiento, barras de título, menús, etc.). )

Prueba

GetWindowRect(hand, R); //Obtiene el área rectangular del formulario correspondiente al identificador.

B. Ancho:= R . Derecha-R . := H; //Asigna la tabla de descripción al identificador del lienzo. En este momento, el lienzo representará toda la pantalla.

B.Canvas.CopyRect(Rect(0, 0, B.Ancho, B.Alto), C, Rect(0, 0, B.Ancho, B. Alto)

//Imagen1. imagen. mapa de bits. asignar(B);

Finalmente

C. H); // Libera el contexto del dispositivo

End;

End;

Un software similar escrito anteriormente debería ser coherente con su problema. Puedes consultarlo.

上篇: 下篇: ¿Por qué aparecen muchas de las mismas interfaces cuando hago clic en una página web en mi computadora portátil? ¿Estás envenenado?

Artículos populares