XProfan

Français

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
System: Prozesse auflisten
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$
                    Sleep 100	 Hier die gefundenen Prozesse in Listbox o.ä. übernehmen

                EndIf

            Until err& = 0

            CloseHandle(handle&)

        EndIf

    EndIf

EndProc

cls
FillProcessList
WaitInput
4 href='./../../function-references/XProfan/end/'>end