Solved

How to find out if a dll is registered or not ?

Posted on 2006-07-14
5
540 Views
Last Modified: 2010-04-05
Hi.

I'd like to send a command
regsvr32 /u  ***.dll

but only if it is registered.
Is there a way to find out programmatically ?

Thanks in advance.
0
Comment
Question by:CodedK
  • 2
  • 2
5 Comments
 
LVL 28

Expert Comment

by:ciuly
Comment Utility
I found this:
http://www.developerfusion.co.uk/show/3479/
and another idea:
http://experts.about.com/q/Visual-Basic-1048/DLL-OCX-Registered.htm
and another thread:
http://forums.winamp.com/showthread.php?threadid=181974 (didn't read throu)

you could also try to move the dll, or to rename it and trap error
0
 
LVL 26

Expert Comment

by:Russell Libby
Comment Utility

Have you checked out the tip on my site:

http://users.adelphia.net/~rllibby/delphitips/tip8.html

regarding programmatically registering / unregistering a library? You can use this class to determine if a dll exposes the required functions, and there is no problem with unregistering a library that is not registered (most just remove any registry keys they created). The functions return an HRESULT (no error messages, exceptions), so you choose how you want to handle the return, if at all.

Regards,
Russell
0
 
LVL 16

Author Comment

by:CodedK
Comment Utility
Ciuly thanks, i've read the articles, the source code in DeveloperFusion (Is it in C ?)
probably talks about looking if a dll can be loaded, if it is available...(Maybe i'm wrong...).
But mine is a windows component, its available.
I'd like to learn the current state.

Russell i've tracked the registry changes (registering/unregistering the dll)...
You are right, i can do without regsrv. I can just change the registry keys with you "RegTransfer" unit.

Just to be on the safe side i'd like to try COMREG unit ...
Can you give me an example of how to :
Check if it is available, load it and unload it ?

Thanks :)
0
 
LVL 26

Accepted Solution

by:
Russell Libby earned 250 total points
Comment Utility
Very simple to use, let me know if you have questions.

Russell


Example:

  with TComRegistration.Create do
  begin
     try
       // Set lib name to the name of the dll you are working with
        if (Load(LibName) = ERROR_SUCCESS) and IsLoaded and IsComLibrary then
        begin
           if (Perform(raUnregister) = S_OK) then
           begin
              ShowMessage('Unregistered');
           end;
        end;
     finally
        Free;
     end;
  end;
0
 
LVL 16

Author Comment

by:CodedK
Comment Utility
Thank you both :)

Russell it works perfect, i can handle the messages now which is good :)
But more or less it does the same thing as the code in DeveloperFusion, it checks
for the existence of the file...
If it manage to load it then ok it exists... Anyway i can track it through registry and then load itwith your
unit  :)
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Suggested Solutions

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now