Deklaration: Declare Function GetCurrentProcessId Lib "kernel32" () As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: Private Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" ( _ ByVal dwFlags As Long, _ ByVal th32ProcessID As Long) As Long Private Declare Function CloseHandle Lib "kernel32.dll" ( _ ByVal hObject As Long) As Long Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long Private Declare Function Thread32First Lib "kernel32.dll" ( _ ByVal hSnapshot As Long, _ lppe As THREADENTRY32) As Long Private Declare Function Thread32Next Lib "kernel32.dll" ( _ ByVal hSnapshot As Long, _ lppe As THREADENTRY32) As Long Private Type THREADENTRY32 dwSize As Long cntUsage As Long th32ThreadID As Long th32OwnerProcessID As Long tpBasePri As Long tpDeltaPri As Long dwFlags As Long End Type ' CreateToolhelp32Snapshot dwFlags-Konstanten Private Const TH32CS_INHERIT = &H80000000 Private Const TH32CS_SNAPALL = &HF Private Const TH32CS_SNAPHEAPLIST = &H1 Private Const TH32CS_SNAPPROCESS = &H2 Private Const TH32CS_SNAPTHREAD = &H4 Private Const TH32CS_SNAPMODULE = &H8 ' Alle Threads des eigenen Prozesses ermitteln Private Sub Command1_Click() Dim Retval As Long, ThreadInfo As THREADENTRY32 Dim hSnap As Long, PID As Long ' Prozess-ID des eigenen Programms ermitteln PID = GetCurrentProcessId() ' Schnappschuss des Systems machen hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, PID) ' Größe der Struktur setzen ThreadInfo.dwSize = Len(ThreadInfo) ' Ersten Thread ermitteln Retval = Thread32First(hSnap, ThreadInfo) If Retval <= 0 Then Exit Sub ' Alle weiteren Threads enumerieren Do With ThreadInfo If PID = .th32OwnerProcessID Then Debug.Print "Thread: " & .th32ThreadID & vbTab & _ "Proirität: " & .tpBasePri End If End With Loop Until Thread32Next(hSnap, ThreadInfo) = 0 ' Schnappschuss zerstören Call CloseHandle(hSnap) End Sub Diese Seite wurde bereits 15.712 mal aufgerufen. |
sevWizard für VB5/6 Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||
Microsoft, Windows 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. |