;编译器RadASM               

                         .386
                        .model flat,stdcall
                        option casemap:none
                       
include                windows.inc
include                user32.inc
includelib        user32.lib
include                kernel32.inc
includelib        kernel32.lib

                        .data
@szFileName        db        MAX_PATH dup (?)
                        .code
                       
start:
;******************************************************************************
;为什么这段代码会出错
;可能是std指令有问题，但不知道为什么
        invoke        GetModuleFileName,NULL,addr @szFileName,MAX_PATH       
        invoke        lstrlen,addr @szFileName                               
        dec        eax
        lea        edi,@szFileName
        mov        ecx,eax
        mov        al,'\'
        std
        repnz        scasb
        dec        edi
        invoke        MessageBox,NULL,edi,NULL,MB_ICONERROR
;******************************************************************************       
       

;******************************************************************************       
;这个可以正常使用
;想要得到本程序的文件名（不带路径）有没有更简单的方法
        invoke        GetModuleFileName,NULL,addr @szFileName,MAX_PATH       
        invoke        lstrlen,addr @szFileName
        dec        eax
        lea        esi,@szFileName
        mov        ecx,eax
        CLD
        ONE:
        lodsb       
        cmp        al,'\'
        jnz        TWO
        mov        edi,esi
        TWO:
        dec        ecx
        jnz        ONE
        invoke        MessageBox,NULL,edi,NULL,MB_OK
;******************************************************************************
        ret
        end        start

[课程]FART 脱壳王！加量不加价！FART作者讲授！