AutoRegistration of DLL's and OCX's - VERY URGENT 1

[engineer2100]

Greetings all,

I have an application that needs to be deployed on Citrix. Not the issue is that I cannot use the Package and deployment wizard to setup the application on the citrix. I have to copy the exe along with other important files onto the citrix box.

Is there anyway we can see, whenever the application is run, if the DLL's and OCX's are registered and if they are not then register them first and then continue execution? What I want is a way, from within the VB code, to auto register the DLL and OCX without manually doing the registration process.

I am in bit of a hurry here, so request you to help me with this asap.

Thanks
-Engi

 

[hammy]

This may not be very tidy, but should work.

Create a separate app that late binds all your DLLs. If the CreateObject fails then you need to register the DLL.

e.g.

dim myObject as object

on error resume next
set myObject = createObject("objTest.clsTest")
if err <> 0 then
'register dll
end if

and go on.

Hope this helps.

Hammy.

 

[engineer2100]

thanks Hammy. I found out another way using API call
- VerFindFile & VerInstallFile functions.

Public Declare Function VerFindFile Lib "version.dll" Alias "VerFindFileA" (ByVal uFlags As Long, ByVal szFileName As String, ByVal szWinDir As String, ByVal szAppDir As String, ByVal szCurDir As String, ByRef lpuCurDirLen As Long, ByVal szDestDir As String, ByRef lpuDestDirLen As Long) As Long

Public Declare Function VerInstallFile Lib "version.dll" Alias "VerInstallFileA" (ByVal uFlags As Long, ByVal szSrcFileName As String, ByVal szDestFileName As String, ByVal szSrcDir As String, ByVal szDestDir As String, ByVal szCurDir As String, ByVal szTmpFile As String, ByRef lpuTmpFileLen As Long) As Long

HTH you too.

Regards
Engi

 

[hammy]

Nice one - thanks for posting this.

Hammy.