Seznam běžících procesů |
![]() |
Postup: Založte nový projekt a připojte do něj modul a formulář. Do formuláře přidejte Listbox (List1) a tlačítko (Command1). Do modulu zapište následující
deklarace: (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Public Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Public Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Public Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long) * každá deklarace musí být na samostatném řádku Do formuláře na událost
Click tlačítka zapište následující kód: Dim
hSnapShot As Long
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) End Sub Spusťte projekt. Po kliknutí na tlačítko se List vyplní seznamem běžících procesů. |
![]() |
Autor: The Bozena |