куча вопросов... по API

[drronnie]

1.
Значится есть программа (не формы ничего... типа сервис) там надо использовать SetTimer а один из его параметроц - дескриптор (hWnd) если бы была форма - пишим Me.hWnd - и нет проблем.... но форм нет - что делать?

2.
Есть мультимедийная клава (SVEN Ergonomic 2500) как в программе отлавливать нажатия мультимедийных клавиш? Наверно хук надо юзать... вот бы конкретнее...

3. Кто нибудь когда-нидь работад с RAS? Вот из API-Guide пример у меня ни пашет:((

[GSerg]

1. Добавить невидимую форму.
2. Функция GetKeyboardState юзает массив из 255 элементов, может там есть и нужные тебе клавиши, не знаю.

[X-BOND]

Значит по поводу первого вопроса:

Форма для таймера необязательна

Пиши так:

TimerID = SetTimer(0, ЛюбоеЧисло, TimerInterval, AddressOf TimerSub)

TimerID - должна быть глобальная переменная

Потом в модуле пишешь функцию:

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

Sub TimerSub(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)

if uElapse = TimerID then
'Здеся обрабатываешь свой таймер

'Для того чтобы убить используй KillTimer hWnd, uElapse
'Я сам не мог понять логику параметра uElapse, но работает.
End if

End sub


Подобный код работет у меня в CorelDRAW VBA, а там формы и не знают что такое hWnd

[drronnie]

1. Добавить невидимую форму.
2. Функция GetKeyboardState юзает массив из 255 элементов, может там есть и нужные тебе клавиши, не знаю.

Во-первых - нет формы... зачем геморр?... а на счёт второго вопроса - пробовал - ничего не выходит

[TRUST]

В DirectInput много констант типа Play/Pause, Stop, Next Track, etc.
Посмотри, может там есть нужные тебе кнопки. Могу прислать константы (там они не ASCII) и функции для работы с DInput.

[zzoom]

В дополнение к ответу X-BOND (просто окна с хэндлом ЛюбоеЧисло может и не найтись)
В Declarations вставляешь:

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

Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long

Потом вызываешь:

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

TimerID = SetTimer(0, GetDesktopWindow, TimerInterval, AddressOf TimerSub)

[TRUST]

Кстати, а что такое RAS?

[ASD]

Кстати, а что такое RAS?

Remote Access
Удаленный доступ

[X-BOND]

В дополнение к ответу X-BOND (просто окна с хэндлом ЛюбоеЧисло может и не найтись)
В Declarations вставляешь:
Код:
Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long

Потом вызываешь:
Код:
TimerID = SetTimer(0, GetDesktopWindow, TimerInterval, AddressOf TimerSub)

Я всегда ставил 99 и всегда работало. По идее вообще можно 0 поставить.

[drronnie]

Спасибо за "про таймер"... всем спасибо....
А вот на счёт RAS? Почему пример из API-Guide не рулит?
Пробовал сам что-то поправить... не фига... кто нидь может подсказать работающий примерчик?!