Probando el ensamblador de Delphi 2

[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!

[[cHackAll]]

Empezado por Mav

..¿ Podria alguien pasar el primero a código Delphi sin ensamblador ? ¡Gracias!

http://www.clubdelphi.com/foros/showthread.php?p=242047

[Mav]

¿Por qué lo mueves? Iba a hacer una serie explorando distintas Apis de Windows.
Si le interesa a alguien claro.
Saludos
Miguel

[[cHackAll]]

pues si nos interesa!

[[ArdiIIa]]

Empezado por Mav

por cierto¿ Podria alguien pasar el primero a código Delphi sin ensamblador ? ¡Gracias!

Código Delphi [-]

procedure TForm1.Button1Click(Sender: TObject);
Var
  hHandle : Thandle;
  Texto : String ;
  I : Integer;
begin
Texto := 'Estamos probando como funciona el assembler'+ #13#10+
         'en Delphi y como no tenemos ni idea, no sabemos'+#13#10+
         'que sucederà .'+#13#10+
         'Bueno, no tenemos ni idea de Delphi,'+#13#10+
         'en ensamblador , algo si sabemos ,es el primer len-'+#13#10+
         'guaje de programación  que nos pusimos a intentar '+#13#10+
         'aprender o debí escribir aprehender............'+#13#10+
         '¿ End ?' ;

   Winexec('notepad.exe',SW_SHOW);
   hHandle := FindWindowEx(FindWindow('Notepad',0),0,'Edit',nil);
   For I := 0 To Length(Texto) DO
   Begin
   PostMessage(hHandle,WM_CHAR,ord(Texto[i]),0);
   Sleep(100);
   End;
end;

Empezado por Mav

Iba a hacer una serie explorando distintas Apis de Windows.
Si le interesa a alguien claro.

Podrías insertar tus series de ASM en un mismo mensaje para que no estuvieran desperdigados.
Al final, terminarás haciendo un tutorial, que particularmente a mi si me llama la atención.

[[ArdiIIa]]

Conyo.
Me acabo de dar cuenta que cHackAll ya había traducido el código hace tiempo.
Lo siento, estoy cegato..