ASM En delphi - Me ayudan? (Sleep)

[MarkPwn]

Hola a todos, estaba pasando un codigo de RadASM a delphi, al parecer lo he pasado, mas necesito hacer sleep(10) Entre un codigo y otro

ASM
invoke Sleep,10

delphi
Sleep(10);

como pudiese invocar sleep en delphi en este codigo pro ejemplo :

Código Delphi [-]
begin
  Asm
  mov eax, dword ptr [00851456h]
  mov eax, dword ptr [eax]
  add eax, 1248h
  mov Variable,eax
  push Variable
  call Funcion
  invoke Sleep,10   
  push Valor
  push Variable
end;

///Como declaro Sleep10? lo pongo tal cual y me da error.

[ecfisa]

Hola MarkPwn.

Código Delphi [-]
...
begin
 asm
   ...
   push 10   // milisegundos 
   call Sleep   
   ...
  end 
end;

Saludos.

[morringo]

Hola ecfisa, una duda:
¿Para C++ builder también sería igual verdad? En cuanto a que metes el 10, ¿en qué parte lo metes? ¿Lo metes en la pila? Disculpa la pregunta, ya que soy nuevo en las dos (C++ y ASM) y según tengo entendido que para meter algo necesitas especificarle si en eax, edx o el registro en el cual lo quieras meter el dato.

Gracias y saludos =).

[[maeyanes]]

Hola...

Si bien recuerdo, la instrucción Push de ensamblador se usa para agregar datos a la pila.


Saludos...

[ecfisa]

Hola maeyanes.

La memoria no te falla en absoluto.

Saludos.

[[Al González]]

Empezado por morringo

[...] metes el 10, ¿en qué parte lo metes? ¿Lo metes en la pila? [...] tengo entendido que para meter algo necesitas especificarle si en eax, edx o el registro en el cual lo quieras meter el dato.

Eso depende de la convención de llamada que emplee la función en cuestión. En el caso de la función Sleep de la API de Windows su convención de llamada es stdcall, lo cual significa (entre otras cosas) que los parámetros son pasados usando la pila y no copiándolos en los registros de la CPU (que sería lo usual con funciones nativas de Delphi). Por ello la sugerencia de ecfisa es correcta.

Código Delphi [-]
Procedure MuestraEntero (I :Integer);
Begin
  ShowMessage (IntToStr (I));
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Asm
    // Llamada a función de estilo "StdCall"
    Push 10
    Call Sleep

    // Llamada a función de estilo "Register" (nativo de Delphi)
    Mov EAX, 20
    Call MuestraEntero
  End;
end;

Te recomiendo leer los temas Calling conventions y Parameter passing de la ayuda de Delphi.

Saludos.

Al González.

[MarkPwn]

Gracias a todos amigos! me ha servido!