Ver Mensaje Individual
  #4  
Antiguo 29-11-2013
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
[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 Ver Mensaje
...otra cosa, porque es el SRCCOPY + $40000000 y no simplemete SRCCOPY?
$40000000 es el valor de CAPTUREBLT lo pongo para capturar ventanas semitransparentes.


Saludos.
Responder Con Cita