Unregister and Delete Dlls programmatically

[JemimaChadwick]

Hi,
I am writing an application that will Unregister and delete the Dlls in a given directory structure. I tried this in 2 ways but am having problems in both.

1) I tried the ShellExecute to do this using the "open" verb but this resulted in the successful/unsuccessful Notification message. The appln would be functioning for a batch of DLLs and I don't want a notification to be sent. Is this possible? How do i disable notifications?

l = ShellExecute(Me.hwnd, "Open", "c:/Winnt/system32/regsvr32.exe /u", "D:/Dlls/xxxx.dll", "c:/", SW_HIDE)

2) Secondly I tried this code borrowed from an article posted by Clunietp. Here the difficulty i encountered was that the Dll had to be hardcoded in the Declaration Statement itself. Anyone has any ideas on how the DLL can be passed as an argument to a similar API Call?

Private Declare Function UnRegComCtl32 Lib "D:/DLLs/xxxx.dll" _
         Alias "DllUnregisterServer" () As Long

Also, I want ways to clean the registry entries - Class IDs of the deleted DLLs. Any ideas?

thanks,
Jemima.

[jim mcnamara]

This code sample gets around the hard-coded problem for calling DllUnRegister or DllRegister - from allapi.net

http://www.allapi.net/apilist/exampl...er%20Server%20(2)

[Michael Woolsey]

Try adding the /s option to your regsvr32 call...

l = ShellExecute(Me.hwnd, "Open", "c:/Winnt/system32/regsvr32.exe /s /u", "D:/Dlls/xxxx.dll", "c:/", SW_HIDE)

Also jims link is broken... try this one: http://www.allapi.net/apilist/exampl...20Server%20(2)

Hope this helps
Michael

[JemimaChadwick]

Thanks Michael. That did it!

Thanks to u too, jim. But my app terminates with a VBSTAT.exe Application Error on call to

CallWindowProc(pa, hWnd, ByVal 0&, ByVal 0&, ByVal 0&)

Anyhow, now everything's fine! I got the app working.

Still, What about the Registry? Even if I unregister and delete Dlls this way, the class-id(s) would remain in the registry right? Anyone know any application or code for cleaning the registry from "hanging references"?

- Jemima.