[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
Código:
type
PRECT = ^TRECT;
....
Pasa
lprcMonitor como un puntero en lugar de por referencia:
Código:
function MonitorEnumProc(hMonitor: THANDLE; hdcMonitor: HDC; lprcMonitor: PRECT; dwData: LPARAM): boolean; stdcall;
Cita:
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.