Red de conocimiento informático - Espacio del host - Bloquear código fuente

Bloquear código fuente

ProgramaTForm1. GetActiveWndImg

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

p: TPoint; 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; p>

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é una computadora portátil Dell se calienta mientras mira videos?

Artículos populares