Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > Access97 AccessXP

Автор: Serg_vnovg 15.3.2006, 17:11

Использую вызовы Dll не только для диалоговых окон. Написано много программного под Access97 где вызываю Dll API, а так же DLL разработанные на Builder для ускорения работы приложения и выполнения функций, которые в Access реализовывать не очень удобно. Не хочется при переходе на новую версию Access переписывать все, что наработано ранее.

Использую windowsXP. В системе установлен Aceess97 и AccessXP одновременно. При копировании кода из одного приложения в другое получаем нормальную работу под Aceess97 и отсутствие результатов под AceessХР. В FAQ ничего не нашел. Неужели придется остаться под Aceess97. У клиентов периодически его сносят под новую версию, приходится приходить у устанавливать Aceess97. Очень неудобно!

Даже простейшие функции самого Access не работают smile

Код


Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub RApp()
Dim Ret As Long
Dim hWnd As Long
    hWnd = 0
    Ret = ShellExecute(hWnd, "Open", "NOTEPAD.EXE", vbNullString, vbNullString, vbNormalFocus)
    Ret = Shell("NOTEPAD.EXE")
End Sub

В Access97 все работает . В AccessXP вызовы обеих функций возвращают 0

Автор: Преображенский 8.4.2006, 09:20

Была проблемка, пришлось отменить 97-е dll-ки. Переключился на XP-ые dll-ки (новые) переделать все модульки. Как понял на 97-м DOS-ая кодировка, а на XP нет. Просто настраивать надо под dos

Автор: Serg_vnovg 10.4.2006, 06:52

Сидел без интернета smile

, не мог ответить вовремя. Проблнмма заключалась в антивирусной программе Касперского, где была включена защита от макросов вызывающих системные функции, причем эта защита не работает с Access97.