Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час Спасибо Коттт Не помогает
Private Sub Кнопка0_Click() Declare Function RegTestDLL Lib "DrvMercFR.dll" Alias _ "DllRegisterServer" () As Long Const ERROR_SUCCESS = 0& Dim retCode As Long On Error Resume Next ' включаем программную обработку ошибок ChDrive "C:" ' Устанавливаем нужный ChDir "C:\" & CurrentProject.Path ' каталог текущим regCode = RegTestDLL() ' регистрация Test.DLL ' анализ возможных ошибок If Err <> 0 Then MsgBox "Файл Test.DLL не найден" Else If regCode <> ERROR_SUCCES Then MsgBox "Операция регистрации не выполнена" End If End If End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.