Search  

   

Latest News  

Problemstellung:Wenn man Etiketten drucken will steht man oft vor einigen Problemen.1. Man möchte nur ein paar Etiketten drucken und beim nächsten Druck braucht man wieder   ein neues Blatt weil freie...
   

Latest Forumposts  

  • Keine Beiträge vorhanden
   

Kommentare  

Tut mir leid Hella, ich kann Dir nicht folgen? 13.04.2017 - 14.04.2017 ergibt bei mir 1 13.04.2017 -...
Gast - Hella
Hallo, Berechne wie folgt, ob "zu früh" oder "zu spät" Rückmeldet. Früher sollte auch mit negativer ...
Gast - Hella
Hallo, mit negativen Werten meine ich z.B. -5 Tage (ohne Wochenende) u.ä. Zur Zeit wird nur die 0 au...
Hallo Hella, wie negative Werte? Kannst Du es erläutern was Du machen willst? Gruß Tommy
Gast - Hella
Hallo, ich bräuchte auch negative Werte bei der Anzahl, wie kann man das realisieren? Liebe Grüße He...
   

Counter  

1115631
HeuteHeute116
GesternGestern1114
Diese WocheDiese Woche2362
Dieser MonatDieser Monat23843
GesamtGesamt1115631
Highest 07.12.2017 : 1250
US
UNITED STATES
US

This page uses the IP-to-Country Database provided by WebHosting.Info (http://www.webhosting.info), available from http://ip-to-country.webhosting.info

   

Download Statistik  

Diese Site enthält 187 Downloads in 30 Kategorien. Gesamtdownloads bisher: 234324
   
Free live stats and visitor counter for Joomla, Wordpress, Drupal, Magento and Prestashop
   

Login

   

User Online

Total: 54 Members: 0 Guests: 54
No members online
   

ActiveX-Datei (OCX, DLL) aus Access De- oder Registrieren

Bewertung:  / 1
SchwachSuper 
Details

Problemstellung:

Wie kann ich aus Access heraus eine ActiveX-Datei Registrieren bzw. Deregistrieren?

Folgenden Code in öffentliches Modul kopieren:

Public Declare Function LoadLibrary _
     Lib "kernel32" Alias "LoadLibraryA" ( _
     ByVal lpLibFileName As String) As Long
 
Public Declare Function FreeLibrary _
     Lib "kernel32" ( _
     ByVal hLibModule As Long) As Long
 
Public Declare Function GetProcAddress _
     Lib "kernel32" ( _
     ByVal hModule As Long, _
     ByVal lpProcName As String) As Long
 
Public Declare Function CreateThread Lib "kernel32" ( _
     lpThreadAttributes As Any, _
     ByVal dwStackSize As Long, _
     ByVal lpStartAddress As Long, _
     ByVal lParameter As Long, _
     ByVal dwCreationFlags As Long, _
     lpThreadID As Long) As Long
 
Public Declare Sub ExitThread Lib "kernel32" ( _
     ByVal dwExitCode As Long)
 
Public Declare Function WaitForSingleObject _
     Lib "kernel32" ( _
     ByVal hHandle As Long, _
     ByVal dwMilliseconds As Long) As Long
 
Public Declare Function GetExitCodeThread _
     Lib "kernel32" ( _
     ByVal hThread As Long, _
     lpExitCode As Long) As Long
 
Public Declare Function CloseHandle _
     Lib "kernel32" ( _
     ByVal hObject As Long) As Long
 
Public Function RegisterLibrary(sFile As String, _
     ByVal bRegister As Boolean) As Boolean
 
    Dim bolRet As Boolean
     Dim lngLib As Long
     Dim strProc As String
     Dim lngRet1 As Long
     Dim lngRet2 As Long
     Dim lngThread As Long
 
    On Local Error GoTo RegisterLibrary_Error
 
    bolRet = False
     lngLib = LoadLibrary(sFile)
 
    If lngLib > 0 Then
         strProc = IIf(bRegister, "DllRegisterServer", _
             "DllUnregisterServer")
         lngRet1 = GetProcAddress(lngLib, strProc)
         If lngRet1 > 0 Then
             lngThread = CreateThread(ByVal 0, 0, ByVal lngRet1, _
                 ByVal 0, 0, lngRet2)
             If lngThread > 0 Then
                 lngRet2 = WaitForSingleObject(lngThread, 10000)
                 If lngRet2 > 0 Then
                     Call FreeLibrary(lngLib)
                     lngRet2 = GetExitCodeThread(lngThread, lngRet2)
                     Call ExitThread(lngRet2)
                     Exit Function
                 End If
                 Call CloseHandle(lngThread)
                 bolRet = True
             End If
         End If
         Call FreeLibrary(lngLib)
     End If
 
RegisterLibrary_Error:
     RegisterLibrary = bolRet
 
End Function

Aufruf z.B. zum Registrieren:

If RegisterLibrary("C:\Windows\System32\Deine.dll", True) Then
     MsgBox "Datei wurde erfolgreich regisriert"
Else
     MsgBox "Bei der Registrierung trat ein Fehler auf"
End If

Aufruf z.B. zum Deregistrieren:

If RegisterLibrary("C:\Windows\System32\Dein.ocx", False) Then
     MsgBox "Datei wurde erfolgreich deregisriert"
Else
     MsgBox "Bei der Deregistrierung trat ein Fehler auf"
End If

Einen Kommentar verfassen

Als Gast kommentieren

0 / 300 Zeichen Beschränkung
Dein Text sollte zwischen 10-300 Zeichen lang sein
Nutzungsbedingungen.
  • Keine Kommentare gefunden