igen igen unreg activex komponent

Prøv det her

- I din modul tilføjer du flg. kode

Option Explicit

Private Const CREATE_SUSPENDED = &H4
Private Const INFINITE = &HFFFFFFFF  ' Infinite timeout
Private Const STATUS_WAIT_0 = &H0
Private Const STATUS_ABANDONED_WAIT_0 = &H80
Private Const STATUS_TIMEOUT = &H102
Private Const WAIT_FAILED = &HFFFFFFFF
Private Const WAIT_OBJECT_0 = ((STATUS_WAIT_0) + 0)
Private Const WAIT_ABANDONED = ((STATUS_ABANDONED_WAIT_0) + 0)
Private Const WAIT_TIMEOUT = STATUS_TIMEOUT
Private Const STATUS_PENDING = &H103
Private Const STILL_ACTIVE = STATUS_PENDING

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" _
        (ByVal lpLibFileName As String) As Long

Private Declare Function FreeLibrary Lib "kernel32" _
        (ByVal hLibModule As Long) As Long

Private Declare Function GetProcAddress Lib "kernel32" _
        (ByVal hModule As Long, ByVal lpProcName As String) As Long

Private Declare Function CreateThread Lib "kernel32" _
        (lpThreadAttributes As Any, ByVal dwStackSize As Long, _
        lpStartAddress As Long, lpParameter As Any, _
        ByVal dwCreationFlags As Long, lpThreadID As Long) As Long

Private Declare Function WaitForSingleObject Lib "kernel32" _
        (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" _
        (ByVal hObject As Long) As Long

Private Declare Sub ExitThread Lib "kernel32" (ByVal dwExitCode As Long)

Private Declare Function ResumeThread Lib "kernel32" _
        (ByVal hThread As Long) As Long

Private Declare Function GetExitCodeThread Lib "kernel32" _
        (ByVal hThread As Long, lpExitCode As Long) As Long

Public Function fVBRegServer(ByVal strFilePath As String, _
                Optional ByVal blnRegister = True) As Boolean
               
Dim lngModuleHandle As Long      ' module handle
Dim lngFunctionAdr  As Long      ' reg/unreg function address
Dim lngThreadID    As Long      ' dummy var that get's filled
Dim lngThreadHandle As Long      ' thread handle
Dim lngExitCode    As Long      ' thread's exit code if it doesn't finish
Dim blnSuccess      As Boolean  ' if things worked

    '
    ' Load the file into memory.
    '
    lngModuleHandle = LoadLibrary(strFilePath)
     
    '
    ' Get the registration function's address.
    '
    If blnRegister Then
        lngFunctionAdr = GetProcAddress(lngModuleHandle, "DllRegisterServer")
    Else
        lngFunctionAdr = GetProcAddress(lngModuleHandle, "DllUnregisterServer")
    End If
   
    If lngFunctionAdr <> 0 Then
        '
        ' Create an alive thread and execute the function.
        '
        lngThreadHandle = CreateThread(ByVal 0, 0, ByVal lngFunctionAdr, ByVal 0, 0, lngThreadID)
       
        '
        ' If we got the thread handle...
        '
        If lngThreadHandle Then
            '
            ' Wait for the thread to finish.
            '
            blnSuccess = (WaitForSingleObject(lngThreadHandle, 10000) = WAIT_OBJECT_0)
         
            '
            ' If it didn't finish...
            '
            If Not blnSuccess Then
                '
                ' Something happened. Close the thread.
                '
                Call GetExitCodeThread(lngThreadHandle, lngExitCode)
                Call ExitThread(lngExitCode)
            End If
   
            '
            ' Close the thread.
            '
            Call CloseHandle(lngThreadHandle)
        End If
    End If
   
    '
    ' Free the file if we loaded it.
    '
    If lngModuleHandle Then Call FreeLibrary(lngModuleHandle)
   
    fVBRegServer = blnSuccess
   
End Function

Public Function IsDLLActiveX(ByVal strDLLPath As String, Optional ByVal RaiseError As Boolean) As Boolean
Dim lngHMod        As Long
Dim lngLastDllError As Long
 
    lngHMod = LoadLibrary(strDLLPath)
   
    If lngHMod = 0 Then
        If RaiseError Then
            lngLastDllError = Err.LastDllError
            Err.Raise 10000 + lngLastDllError, "IsDLLActiveX", "LoadLibrary-Error: " & lngLastDllError
        End If
    End If
 
    IsDLLActiveX = Abs(CBool(GetProcAddress(lngHMod, "DllRegisterServer")))
    Call FreeLibrary(lngHMod)
End Function



- Når du skal unregister et ActiveX komponent gør du sådan her

Dim strFile As String
Dim blnReturn As Boolean

strFile = "C:\WINNT\System32\component.ocx"
'strFile = "C:\WINNT\System32\component.dll"
blnReturn = fVBRegServer(strFile, False)
               
If blnReturn Then
    Call MsgBox("Unregistration of file '" & strFile & "' succeeded!", vbInformation, "VBRegServer")
Else
    Call MsgBox("Unregistration of file '" & strFile & "' failed!", vbCritical, "VBRegServer")
End If

bare istedet for det andet kode eller tilføje det?

I stedet for det andet kode...

yay fik det os til at virke !! for smukt
tak :) smid et svar så gir jeg dig point
og ved du tilfældigvis hvordan jeg sletter en fil nu jeg er igang?

nåh lige,meget med det der slet fil
bre smid et svar :)

Prøv at slette din fil med:

  Kill strFile

...eller:
Shell "regsvr32.exe xpoint30_excel.ocx" 'Registerer
Shell "regsvr32.exe /u xpoint30_excel.ocx" 'Afregisterer
Shell "regsvr32.exe /u /s xpoint30_excel.ocx" 'Afregisterer uden at give meddeleser til brugeren

Synes jeg er noget lettere, men hvis du gerne vil gøre det 'the hard way' så smid pointene efter somaliomar :)
-Sion

ups, det har du prøvet ;)
det burde ellers virke...

yay sion undrede mig også over det ikke virkede hehe