[Mav]

Hola, aquí pongo otro:

Código Delphi [-]
  program segundo;

uses
  Windows;

const

  SCRCOPY=$00cc0020 ;

 var
       ancho WORD;
       alto  WORD;
    contador WORD;
        HDC  WORD;

begin
    asm
      push SM_CXSCREEN
      call GetSystemMetrics
      mov  [ancho], eax
      push SM_CYSCREEN
      call GetSystemMetrics
      mov  [alto], eax
      shr eax, 1
      mov contador, eax
      push 0
      call GetDC
      mov [HDC], eax
@@eti1:
      push SCRCOPY
      push 0
      push 0
      push [HDC]
      push [alto]
      push [ancho]
      push 1
      push 1
      push [HDC]
      call BitBlt
      dec [alto]
      dec [contador]
      jnz @@eti1
      push [HDC]
      push 0
      call ReleaseDC
      push 0
      call ExitProcess

    end;

end.

..es el segundo que hago en assembler con Delphi, por cierto¿ Podria alguien pasar el primero a código Delphi sin ensamblador ? ¡Gracias!