Fasm – tp.asm

include '%fasm%/win64ax.inc'
section '.code' executable
start:
        sub rsp,8
;------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        invoke GetCommandLine
        mov ebx,eax
@@:
        cmp byte [ebx],NULL
        je  exit
        cmp byte [ebx],' '
        je  @f
        inc ebx
        jmp @r
@@:
        inc ebx
        cmp byte [ebx],' '
        je  @r
 
        invoke lstrcat,ebx,'.exe'
 
        invoke CreateToolhelp32Snapshot,0fh,NULL
        mov [x],eax
        mov [pe32.dwSize],sizeof.PROCESSENTRY32
 
        invoke Process32First,[x],pe32
        test eax,eax
        jz exit
@@:
        invoke Process32Next,[x],pe32
        test eax,eax
        jz exit
 
        invoke lstrcmpi,pe32.szExeFile,ebx
        test eax,eax
        jnz @r
        invoke OpenProcess,1,NULL,[pe32.th32ProcessID]
        invoke TerminateProcess,eax,NULL
        jmp @r
exit:
        invoke ExitProcess,NULL
 
section '.data' readable writeable
 
        x dd NULL
 
struct PROCESSENTRY32
 
        dwSize dd MAX_PATH
        cntUsage dd NULL
        th32ProcessID dq NULL
        th32DefaultHeapID dq NULL
        th32ModuleID dd NULL
        cntThreads dd NULL
        th32ParentProcessID dd NULL
        pcPriClassBase dd NULL
        dwFlags dd NULL
        szExeFile db MAX_PATH dup NULL
ends
        pe32 PROCESSENTRY32
 
section '.idata' import readable
 
        library kernel32,'KERNEL32.DLL'
        include '%fasm%/api/kernel32.inc'