on a Microsoft site, i found something resulting in the following piece of code:
// first check if dcom is already installed
DebugToLog ("Search for installed DCOM");
RegDBSetDefaultRoot ( HKEY_CLASSES_ROOT );
svResult = "";
sRegKey = "ClsID\\{bdc67890-4fc0-11d0-a805-00aa006d2ea4}";
if RegDBKeyExist ( sRegKey ) = 1 then
// Eintrag für ole32.dll gefunden
DebugToLog ("key for ole32.dll found in registry");
if FindFile ( WINSYSDIR , "ole32.dll" , svResult ) = 0 then
VerGetFileVersion ( WINSYSDIR ^ "ole32.dll" , svResult );
endif;
endif;
DebugToLog ("Version of ole32.dll : " + svResult);
if ( bIsWindows95 = TRUE ) then
if (ISUtilCompVerStrings ("4.71.2612" , svResult , ".") = EQUALS) then
DebugToLog ("DCOM 1.2 for Win95/98 found on Windows 95");
return 0; // exit function, not necessary to install
elseif (ISUtilCompVerStrings ("4.71.3328.0" , svResult , ".") = EQUALS) then
DebugToLog ("DCOM 1.3 for Win98 found on Windows 95");
return 0; // exit function, not necessary to install
elseif (ISUtilCompVerStrings ("4.71.2900" , svResult , ".") = EQUALS) then
DebugToLog ("DCOM95 found on Windows 95, ignore");
return 0;
else
DebugToLog ("DCOM not yet installed");
endif;
elseif ( bIsWindows98 = TRUE ) then
if (ISUtilCompVerStrings ("4.71.3328.0" , svResult , ".") = EQUALS) then
DebugToLog ("DCOM 1.3 for Win98 found on Windows 98");
return 0; // exit function, not necessary to install
else
DebugToLog ("DCOM not yet installed");
ChangeDirectory (SRCDIR);
LaunchApp ("hh.exe", "DCOM98_"+szSelLanguageId+".htm");
return -1; // exit with error because user has to install manually
endif;
endif;
Microsoft did not allow us to distribute DCOM98 Version 1.3 , we were recommended to have the customers get it from the Microsoft site (
http://www.microsoft...98/download.asp)
Franky