capturar mas de una pantalla

[[escafandra]]

[quote=Segator;470244]Bien me dispuse a probarlo pero me da el siguiente error:
unit1.pas(63,59) Error: Incompatible type for arg no. 3: Got "<address of function(LongWord,LongWord,var RECT,LongInt):Boolean;StdCall>", expected "<procedure variable type of function(LongWord,LongWord,PRECT,LongInt):LongBool;StdCall>" en la funcion @MonitorEnumProc y si la cambio por PRECT me dice:
unit1.pas(34,84) Error: Identifier not found "PRECT"[quote]

Pues depende de las definiciones del delphi que uses. Yo lo he compilado con delphi7. Realiza los siguientes cambios:

PRECT es un Puntero a RECT

type
PRECT = ^TRECT;

....

Pasa lprcMonitor como un puntero en lugar de por referencia:

function MonitorEnumProc(hMonitor: THANDLE; hdcMonitor: HDC; lprcMonitor: PRECT; dwData: LPARAM): boolean; stdcall;

Empezado por Segator

...otra cosa, porque es el SRCCOPY + $40000000 y no simplemete SRCCOPY?

$40000000 es el valor de CAPTUREBLT lo pongo para capturar ventanas semitransparentes.


Saludos.