Probando el emsamblador de Delphi

[[cHackAll]]

Empezado por Mav

Código Delphi [-]
uses Windows, Messages;
 
var
 hWnd, Pos: Cardinal;
 Str: PChar = ' Estamos probando como funciona el assembler'#13+
              'en Delphi y como no tenemos ni idea, no sabemos'#13+
              'que sucederà .'#13+
              'Bueno, no tenemos ni idea de Delphi,'#13+
              'en ensamblador , algo si sabemos ,es el primer len-'#13+
              'guaje de programación  que nos pusimos a intentar '#13+
              'aprender o debí escribir aprehender............'#13+
              '¿ End ?';
 
begin
 Pos := 0;
 WinExec('notepad.exe', SW_SHOW);
 hWnd := FindWindowEx(FindWindow('Notepad', nil), 0, 'Edit', nil);
 while Str[Pos] <> #0 do
  begin
   SendMessage(hWnd, WM_CHAR, Integer(Str[Pos]), 0);
   Sleep(100);
   Inc(Pos);
  end;
end.

ésto es un desafio?

mmm....