| Вопрос: Процессы Windows98-2000 (vb6) | Добавлено: 17.11.03 11:36 |
Автор вопроса:  Atma | ICQ: 161504457 |
|
1. Как просмотреть процессы которые запущенны? (желательно exe.файлы) 2. Как убить определенный процесс? 3. Как скрыть программу от CTRL+ATL+Delete (win98 ,win2000) |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: mzx ICQ: 259560026 Вопросов: 21 Ответов: 143 |
Профиль | Цитата | #1 | Добавлено: 17.11.03 15:01 |
|
1. http://vbnet.ru/faq/showtopic.asp?id=119 2. http://vbnet.ru/faq/showtopic.asp?id=402 |
||
|
Номер ответа: 2 Автор ответа: Atma ICQ: 161504457 Вопросов: 33 Ответов: 14 |
Профиль | Цитата | #2 | Добавлено: 17.11.03 17:10 |
|
Делаю так, но у меня не показываются другие приложения если они становятся активными Private Declare Function GetActiveWindow& Lib "user32" () Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Private Sub Timer1_Timer() Dim tmp Dim cnt As Long Dim rttitle As String * 256 cnt = GetWindowText(GetActiveWindow, rttitle, 255) Me.Label2.Caption = rttitle Me.Label1.Caption = GetActiveWindow Me.Label4.Caption = GetWindowThreadProcessId(GetActiveWindow, tmp) Me.Label5.Caption = tmp End Sub
|
||
|
Номер ответа: 3 Автор ответа: mzxICQ: 259560026 Вопросов: 21 Ответов: 143 |
Профиль | Цитата | #3 | Добавлено: 18.11.03 11:47 |
|
Попробуй еще вот это посмотреть: |
||
|
Номер ответа: 4 Автор ответа: AtmaICQ: 161504457 Вопросов: 33 Ответов: 14 |
Профиль | Цитата | #4 | Добавлено: 21.11.03 16:10 |
|
Процессы получается посмотреть запущенные, но не удается посмотреть пути к файлам этих процессов используя функцию : Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long  Как узнать пути к файлам?  |
||
Страница: 1 |