Mensajes

¿Quien menciono FASM ? yo digo de lenguaje ensamblador.

Por cierto ponganse un pocos mas serios

Ya le pague a la gata de el brujo y solo me cobro un tarro de atún

jajajajajajajjajajaja y te costo?, 1usd

Si pero shhhhhh no les digas, es secreto

Si , y por un ratón me pasa la clave de alex de el foro

Se me olvidaba este mensaje

Código (VB) [Seleccionar] Expandir

ubound(Texto)

No estaría mal un subforo de ASM, eso lo decidirá el brujo, oye fasm es un compilador de asm no?

Fasm es un ensamblador

Es obligado poner en cada mensaje un texto diminuto?

Si

¿Quien menciono FASM ? yo digo de lenguaje ensamblador.

Por cierto ponganse un pocos mas serios

Ya le pague a la gata de el brujo y solo me cobro un tarro de atún

Estaria bueno tenerlo ...

No estaria mal tener un subforo de ASM , creo que en este foro hay suficientes post y usuarios que sepan ASM , como para hacerlo ( ya se que se ah pedido muchas veces este suboforo ) .

yo digo que todo se soluciona con flores

Veamos si alex pone el suboforo , ¿alguien sabe si le gustan las rosas?

Hola,

tengo una duda , ¿que se necesita como requisito para que se cree un subforo de ASM ?

Saludos.

Ahora que veo el post de el source que traduci , Leandro puse esa api , nunca hay que traducir un codigo a las 2:30 am por lo visto .

Edit:

Ahora mi source supera a la api  ya que en unidades exxtraibles ( probado en XP ) , aunque esta estubiera vacia la api me la detectaba como que no lo estaba , al igual que mi primer source 

Código (asm) [Seleccionar] Expandir

include 'win32ax.inc'

.code
start:

stdcall CapetaVaciaOUnidad,"F:"

.if eax = TRUE
invoke MessageBox,0,"La carpeta esta vacia",0,0
.else
invoke MessageBox,0,"La carpeta no esta vacia",0,0
.endif

invoke ExitProcess,0

proc CapetaVaciaOUnidad,ruta
locals
Find  WIN32_FIND_DATA    ?
HandleBusqueda dd ?
Ruta dd ?
endl

push ebx

invoke GlobalAlloc,GPTR,MAX_PATH+1
mov [Ruta],eax
stdcall Concat,[ruta],"\*", [Ruta]
invoke FindFirstFile,[Ruta] , addr Find
mov [HandleBusqueda],eax
invoke FindNextFile ,eax, addr Find
invoke lstrcpy,[Ruta],addr Find.cFileName
mov ebx,[Ruta]

.if word[ebx] = ".."
invoke FindNextFile, [HandleBusqueda], addr Find
.endif
invoke lstrcpy,[Ruta],addr Find.cFileName
mov ebx,[Ruta]
.if word[ebx] = ".."

invoke GlobalFree,[Ruta]
mov eax,TRUE
.else
.if dword[ebx] = "RECY"
.if dword[ebx+4] = "CLER"
invoke GlobalFree,[Ruta]
mov eax,TRUE
.endif
.else
invoke GlobalFree,[Ruta]
mov eax,FALSE
.endif
.endif
.endif
pop ebx

ret
endp

proc Concat uses esi edi, @AdrSrc1, @AdrSrc2, @AdrDest

    mov esi,[@AdrSrc1]
    mov edi,[@AdrDest]

.concat_src1:
    movsb
    cmp byte[esi],0
    jne .concat_src1

    mov esi,[@AdrSrc2]

.concat_src2:
    movsb
    cmp byte[esi],0
    jne .concat_src2

    movsb

    ret
endp
.end start

buen code, para la proxima que sera? un editor de recurso? jeje

Saludos

Ahora le estoy agregando aparte antes de hacer lo de los logs , algo que liste algunas cosas de el resource.

No estaria mal hacer un editor de resource , tal vez lo haga en un tiempo mas , pero ahora me quiero dedicar a un proyecto que en un rato mas voy a publicar para ver si alguien me ayuda.

Muy bueno, si señor, será muy util este code. Gracias por el aporte  .

salu2

jeje gracias, lo que le quiero agregar ahora es que genere logs en html , yo creo que para unas semanas mas lo tengo generando logs en html .

Pues adelante, ademas no creo que sea tan dificil 

Dificil no es , lo que si es es largo .