Сюда не заходить:)

[Wowa]

У меня такой вопрос, как "поймать" клик от пользователя не только на форме, а вообще на робочем столе с помощью функций Апи или может кто знает другие методы, поделитесь плиз, и пожалуйста програмный код, если с помощью Апи то описание типов переменных(принимаемых или передаваемых), короче если можно полностью робочий програмный код для реализации данной задачи. Пасиб!

[Wowa]

И ещё если есть у кого-то есть толковая справка по ВиндовсАпи, то если не сложно поделитесь. Ещё раз спасиба!

[lord0n]

прочитай сначала как надо задавать вопросы
особенно про название тем

[_Мика_]

На счет апи функций сюда http://www.mentalis.org/agnet/appdown.shtml

[Sedge]

Не заходил.
Вопроса не видел.
Поэтому ответа не знаю.

[Wowa]

2 *lord0n*

А что собственно не ясно по поводу вопроса? Ну да тему я назвал что бы сюда побольше людей заходило, виноват, еси шо извените.

[RayShade]

Нормальный топик Назван, хоть и не в тему, но суперски Улыбнуло в общем

[A.A.Z.]

И ещё если есть у кого-то есть толковая справка по ВиндовсАпи, то если не сложно поделитесь. Ещё раз спасиба!

http://bbs.vbstreets.ru/viewtopic.php?t=11721
Надо мне бота написать, который это за меня делать будет...

[Wowa]

Всё конешно хорошо, но может наконец-то кто то поможет?

[GSerg]

Вот видишь, A.A.Z., даже прямая дача ссылки не спасёт тебя от повторного вопроса в том же топике

[coolged]

послушай тут все просто. Есть набор функций и процедур Win GDI API
кот. четко и красиво расписаны в MSDN. Так вот начни с того, что присмотрись к функционалу PtInRegion:

Function PtInRegion Lib "gdi32" (ByVal hRgn As Long, ByVal x As Long, ByVal y As Long) As Long

тут hRgn - ссылка на созданый регион, а X и Y - тупо точки, в кот. был клик маусом. К примеру вот момент из моего приложения где я юзал такое (прописывается в Form_MouseDown ):

' Дескриптор региона
Dim hRGN As Long
'..................
'..................
'..................
' Тут мы создали прямоуг. регион (тоге из Win GDI API)
hRGN = CreateRectRgn(.Left, .Top, .Right, .Bottom)
If PtInRegion(hRGN, X, Y) Then
' Точка в нужной области
' Делаем обработки
End if

Как тут видно .Left, .Top, .Right, .Bottom в CreateRectRgn описывают
верх. левый и прав. нижний угол прямоуг. объекта: формы или любого shap-а..... есть так же функции GDI API: CreateEllipticRgn, CreatePolygonRgn (создают регион-элипс и регион-полигон соответственно).

Тут ничего сложного нету А то что на форуме стало модно УМНИЧАТЬ а НЕ ПОМОГАТЬ - мне очень по этому поводу ЖАЛЬ ((( форум по сути клёвый.....

[Twister]

2 coolged

Ты немного не по теме ответил...

2 Wowa
Надо хук ставить на мышь...

[kirrun]

Надо хук ставить на мышь...

Тьфу ты блин! ВТорое слово не так прочитал. Аж страшно стало!

[Twister]

Ну можно и другое поставить, если не будет у чела получаться...

[Wowa]

2 *coolged*
Да, но этот метод будет работать только на форме, мне надо шоб она работала на всём робочем столе я пробовал задавать
hRGN = CreateRectRgn(0, 0, Screen.Height, Screen.Width), но это канешно бесполезно т.к. событие Form_MouseDown происходит только на форме, может я неправ так исправь плз, мне не важно где был клик, мне важно когда он был, и что бы я эго мог заметить на всём робочем столе, даже если форма в момент клика, не активна и даже если клик был не на форме. Если знаеш, то пожалуйста подскажи, но и за это спасибо.

2 *Twister*
Я догадываюсь, но если знаеш как это зделать то поделись.

2 All
Я тут нашол такую ф-цию как Mouse_event, если кто может розберитесь, бо я там ничё не понял, думаю она была бы полезна.

[FaKk2]

Wowa

Давай ты мне заплатишь, а я разберусь, и даже напишу за тебя код.

[Twister]

mouse_event генерирует событие мыши, а тебе его надо отлавливать...

[Twister]

Код: Выделить всё

SetWindowsHookEx(WH_MOUSE, addressof прцедура_обработчик, app.Instance , 0)

Так ставится хук на мышь.

Такие параметры у процедуры_обработчика:

Код: Выделить всё

GetMouseHook(Code as Integer,       ' hook code
                      wParam as long,      ' message identifier
                      lParam as long 'mouse coordinates
                    )

В конце процедуры ставь хук-возврат (чтоб система нормально работала):

Код: Выделить всё

GetMouseHook=CallNextHookEx

События обрабатывай если

Код: Выделить всё

if code=HC_ACTION then
end if

Надеюсь дальше сам разберешься, если нет, то скачай это. Этот компонет реализует хуки на мышь, клаву и окна, с исходниками. Только он на Делфях...

[ALX_2002]

Вот ! Юзай и ни в чём себе не отказывай !

Код: Выделить всё

Private Declare Function WaitMessage Lib "user32" () As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Sub Form_Load()
MsgBox "Нажми правую клавишу и будет тебе счааастье !"
Do
If GetKeyState(2) = -127 Or GetKeyState(2) = -128 Then
Exit Do
End If
WaitMessage
DoEvents
Loop
End Sub

Private Sub Form_Paint()
Me.Cls
Me.Print "!!! СЧАСТЬЕ !!!"
End Sub

P.S Честное пиванерское - Я СЮДА НЕ ЗАХОДИЛ !