FindWindow-FindWindowEx-SendMessage

Однако

Остальные списки процессов будут прекрасно работать.

Придется убивать строку каждую секунду.

Чувствую, что это дело будет моргать.

Ответить

А почему мигать !? Ведь, по идее, можно не удалять строчку, о попросту поставить на него Hook, отслеживать событие добавления, просматривать что именно добавляется, и если нам этого не надо, попросту не передавать сообщение оконной процедуре...

Ответить

Sharp: Оно, конечно, спасибо. А не мог бы привести примерчик? Ато я как-то не до конца представляю параметры.

sne: С хуком хорошо, вот только вечная проблема поставить его нормально и нормально работать. Кстати можно установить в VB глобальный хук на клаву?

Ответить

Пример из API Guide:

Const WS_CHILD = &H40000000

Const WM_LBUTTONDOWN = &H201

Const WM_LBUTTONUP = &H202

Const SW_HIDE = 0

Const SW_NORMAL = 1

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long

Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Dim tWnd As Long, bWnd As Long, ncWnd As Long

Private Sub Form_Load()

'KPD-Team 1998

'URL: http://www.allapi.net/

'E-Mail: KPDTeam@Allapi.net

Dim R As RECT

'Get the taskbar's window handle

tWnd = FindWindow("Shell_TrayWnd", vbNullString)

'Get the start-button's window handle

bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)

'Get the start button's position

GetWindowRect bWnd, R

'Create a new button

ncWnd = CreateWindowEx(ByVal 0&, "BUTTON", "Hello !", WS_CHILD, 0, 0, R.Right - R.Left, R.Bottom - R.Top, tWnd, ByVal 0&, App.hInstance, ByVal 0&)

'Show our button

ShowWindow ncWnd, SW_NORMAL

'Hide the start button

ShowWindow bWnd, SW_HIDE

End Sub

Private Sub Form_Unload(Cancel As Integer)

'show the start button

ShowWindow bWnd, SW_NORMAL

'destroy our button

DestroyWindow ncWnd

End Sub

Ответить

На счет хука - придется dll на C++ или на чем другом, на пример, на том же PowerBasic'e..., иначе не получится Где-то в Инете был пример добавления в блокнот меню, и обработки в этой менюшке событий, использовалась там dll'ка (С++) которая была способна установить хук... В общем-то можно найти и этот пример, и исходники этой или подобной библиотеки...

Ответить

Кстати про PowerBasic скачал я его 256кб по моему. Запустил(он что, без установки?) И нифига в нем не делается! Это по ходу язык не бэйсовский. P.S. А интерфейс как в паскале.

Ответить

Что, что а на паскаль он не похож, скорее на С с синтаксисом Basic'а... А скачал верно что-то не то, т.к. мой дистрибутивчик - установочный файл размером порядка 3,5 Мб...

Ответить

Power Basic - он как, стоящая штука, в смысле стоит качать?

Ответить

PB, если тебе не хватает работы с АПИ функциями, такими как установка глобальных ловушек, работа с потоками, и т.д. То ради интереса можно скачать посмотреть... даже попрограммить... Единственное что, так нет никакого графического интерфейса, т.е. ты остаешься один на один с редактором типа Блокнот (ну чуть получше) и АПИ функциями.

PS
Тема уже несколько в офф-топ уходит, ты посмотри на форуме к PB, почитай, может решишь для себя, качать или не стоит...

Ответить