24 nov 2010

[FASM] Obtener Longitud De Una Cadena

[cc lang="ASM"]include 'c:\archivos de programa\include\win32ax.inc'

.data

palanca db 'hola',0
longitud dd ?
titulo db 'Longitud:',0

.code

start:

invoke lstrlen,palanca
mov [longitud],eax
invoke GlobalAlloc,GPTR,1024
push eax
invoke wsprintfA,eax,"%d",[longitud]
pop eax
invoke MessageBox,0,eax,titulo,MB_OK
ret

.end start[/cc]