Совместимость при вызове внешних функций Виндоуз.

[Shuma1974]

Здравствуйте, уважаемые форумчане!
У меня такой вопрос: я пишу макрос в VBA 6.5 (штатный в офисе 2003).
Поскольку я использую некоторые функции API Windows, то шапка макроса такая:

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
Public Declare Function GetTickCount Lib "kernel32.dll" () As Long
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Declare Function sndplaysound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpzsoundname As String, ByVal uFlags As Long) As Long

ПРОБЛЕМА: при попытке запустить макрос на компе с 64-битной Windows система выдает сообщение о несовместимости. Я прочитал про метод PtrSafe и Ptr-типы переменных. Не работает. Мой VBA не распознает этих операторов (они появились только с VBA 7). Учитывая, что макрос планируется использовать на неопределенно большом количестве компьютеров, среди которых возможно будут и на 32-битном 2003 офисе, можно ли как-то решить этот вопрос, не отсекая макросу возможность работать в старых VBA? Заранее спасибо за ответы.

[Aleksandr H.]

Погуглите код #IF WIN32....#THEN....
В разделе він32 прописать без птрсейф а в если с птрсейф. Может поможет

[EducatedFool]

#If VBA7 Then    '  Office 2010-2013
    Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As LongPtr, ByVal dwDuration As LongPtr) As LongPtr
#Else    '  Office 2003-2007
    Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If

как правильно записать остальные функции - посмотрите здесь
http://www.jkp-ads.com/Articles/apideclarations.asp

[Shuma1974]

Сообщение от EducatedFool

#If VBA7 Then    '  Office 2010-2013
    Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As LongPtr, ByVal dwDuration As LongPtr) As LongPtr
#Else    '  Office 2003-2007
    Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If

как правильно записать остальные функции - посмотрите здесь
http://www.jkp-ads.com/Articles/apideclarations.asp

Public Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As LongPtr) As LongPtr
Private Declare PtrSafe Function getTickCount Lib "kernel32" () As LongPtr
Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As LongPtr, ByVal dwDuration As LongPtr) As LongPtr

Вот это я пробовал. Писал по шаблону beep (именно этих функций по ссылке не нашел). Не работает для 2 функций. GetAsyncKeyState не ругается, но, судя по всему, возвращает ненулевые значения на ненажатую клавишу. А getTickCount ругается (то ей can't find entry to Kernel32 dll, то type mysmatch, то invalid argument в зависимости от записи LongPtr, Long или LongLong на выходе.

[Shuma1974]

Вопрос к сожалению все еще актуален.Как увязать вышеупомянутые функции API с 7 vba и 64-битной Виндой?

[Shuma1974]

Повторюсь: объявление не работает для 2 функций (GetAsyncKeyState и getTickCou nt - по ссылке я их не нашел, поэтому писал объявление по мотивам Beep согласно своему очень неполному на текущий момент разумению в этом вопросе). GetAsyncKeyState не ругается, но, судя по всему, возвращает ненулевые значения на ненажатую клавишу. А getTickCount ругается (то ей can't find entry to Kernel32 dll, то type mysmatch, то invalid argument в зависимости от записи LongPtr, Long или LongLong на выходе.

[EducatedFool]

getTickCount - по ссылке я их не нашел

а почему я нашёл? (по той же ссылке, - ввёл в поиск по странице getTickCount)

Private Declare Function getTickCount Lib "kernel32" Alias "QueryPerformanceCounter" (cyTickCount As Currency) As Long

Private Declare PtrSafe Function getTickCount Lib "kernel32" Alias "QueryPerformanceCounter" (cyTickCount As Currency) As Long

вторая функция - GetAsyncKeyState - легко гуглится запросом
Declare PtrSafe Function GetAsyncKeyState

и что мы находим?

#If VBA7 Then
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#End If

тут добавляется только PtrSafe - т.к. функция LongPtr надо ставить только там, где идёт работа с 64-битными указателями