fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

@hitori04: kuckma diese Prozessliste

Uploader:	ytwinky
Datum/Zeit:	28.04.2012 16:28:03

'Autor: hitori04

'http://www.freebasic-portal.de/code-beispiele/system/prozessliste-anzeigen-lassen-252.html

'Hier ein kleiner Code meinerseits, wie man sich die Prozessliste und die dazugehörigen

'PID's ausgeben lassen kann.Den Code habe ich auf die Schnelle geschrieben und nicht

'auf Sauberkeit ausgelegt, auch dass es sicher noch bessere Methoden gibt, mag ich nicht

'bestreiten.Im Quelltext habe ich noch ein paar Hinweise geschrieben zum besseren Verständnis,

'in diesem Sinne, viel Spaß damit.

#include "windows.bi"

#include "win/tlhelp32.bi"

'tlhelp32.bi wichtig damit wir

'auf die passenden typen und funktionen zugreifen könenn



dim as HANDLE hSnap         'wir definieren etwas vom typ handle

dim proc as PROCESSENTRY32  'und etwas vom typ processentry32



hSnap=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)'snapshot vom system machen

If hSnap=NULL then                                   'wenn nicht möglich..

    Print "Error Load ToolHelp"                      'fehler ausgeben

Else

    proc.dwSize=SizeOf(PROCESSENTRY32)

    Print "Abbildname"; Tab(40); "ProcessID" 'zur besseren übersicht, 'ytwinky:do not use locate if not necessary

    While Process32Next(hSnap, @proc)  'hier gehen wir nun die process liste durch

        Print proc.szExeFile; Tab(40); proc.th32ProcessID 'und geben sie auf dem bildschirm aus

    Wend

End If

Sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.