XProfan

Declare Entry#,err&,handle&,cpid&,text$,text2$
Struct PROCESSENTRY32=dwSize&,
cntUsage&,
th32ProcessID&,
th32DefaultHeapID&,
th32ModuleID&,
Threads&,
th32ParentProcessID&,
pcPriClassBase&,
dwFlags&,
szExeFile$(260)
Dim Entry#,PROCESSENTRY32
Entry#.dwSize& = SizeOf(Entry#)
Def CreateToolhelp32Snapshot(2) !Kernel32, CreateToolhelp32Snapshot
Def Process32First(2) !Kernel32, Process32First
Def Process32Next(2) !Kernel32, Process32Next
Def CloseHandle(1) !Kernel32, CloseHandle
Def GetCurrentProcessID(0) !Kernel32, GetCurrentProcessId

Proc FillProcessList

    cpid&=GetCurrentProcessID()
    handle& = CreateToolhelp32Snapshot(2,0)

    If handle&

        err& = Process32First(handle&, Entry#)

        If err&

            text$=Str$(Entry#.th32ProcessID&)
            text2$=Entry#.szExeFile$
            Print PID: +text$+ | Prozessname: +text2$

            Repeat

                err& = Process32Next(handle&, Entry#)

                If err&

                    text$=Str$(Entry#.th32ProcessID&)
                    text2$=Entry#.szExeFile$
                    Print PID: +text$+ | Prozessname: +text2$

                EndIf

            Until err& = 0

            CloseHandle(handle&)

        EndIf

    EndIf

ENDPROC

fillprocesslist{

    mem entry=processentry32
    entry::dwsize&:=sizeof(entry)
    long cpid:=getcurrentprocessid()
    long handle:=createtoolhelp32snapshot(2,0)

    if handle {

        long err:=process32first(handle&, entry)
        string text,text2

        if err {

            text=str$(entry::th32processid&)
            text2:=entry::szexefile$
            addstring text+	+text2

            repeat

                err:=process32next(handle, entry)

                if err {

                    text:=str$(entry::th32processid&)
                    text2:=entry::szexefile$
                    addstring text+	+text2

                }

            until err==0

            closehandle(handle)

        }

    }

    dispose entry

}

killpid(long h){

    long hProcess:=OpenProcess(PROCESS_TERMINATE, 0,h)
    long ok:=TerminateProcess(hProcess,0)
    CloseHandle(hProcess)
    return ok

}