Cita:
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;
Cita:
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.