24 nov. 2010

[FASM] Leer Archivo

[cc lang="ASM"]include 'win32ax.inc'
.data
ruta db 'c:\windows\system32\calc.exe',0
.code
start:

stdcall Leer

proc Leer
locals
manija dd ?
larchivo dd ?
espacio dd ?
bleidos dd ?

error dd ?
endl

invoke CreateFile,ruta, GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0
mov [manija],eax
invoke GetFileSize,[manija],0
mov [larchivo],eax
invoke GlobalAlloc,GPTR,[larchivo]
mov [espacio],eax
invoke ReadFile,[manija],[espacio],[larchivo],addr bleidos,0
invoke CloseHandle,[manija]

invoke MessageBox,0,[espacio],'Ves como lee?',MB_OK

ret
endp

.end start[/cc]