Probando el ensamblador de Delphi 2

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