Как программно найти и установить стандартные файлы принтера? - VB

Формулировка задачи:

При установке некоего принтера требуются стандартные файлы.
unidrv.hlp
unidrv.dll
unidrvui.dll
unires.dll
stdnames.gpd
Где они лежат, на пальцах понятно.
C:\WINDOWS\Driver Cache\i386\driver.cab
либо на диске виндов.
С ф-циями winspool.dll AddMonitor/Port/PrinterDriver/Printer я разобрался, все замечательно.
Если вышеуказанные файлы в системе есть, проблем тоже не возникает,
но если они не установлены, то надо найти архив/предложить вставить диск и из понятной папки устанавливать драйвер принтера.
Как подойти к вопросу? Один из вариантов тупо бухнуть все это хозяйство в дистрибутив программы, тогда надо думать проблем не возникнет, но это сдается мне, дурной тон, ибо файлы стандартные и по определению присутствуют на диске виндоус.
Как быть? Или есть стандартные API на тему поиска в системе и извлечения из CAB?
Дабы не быть голословным и не производить впечатление, что я тупой, вот код VB, кот.устанавливает у меня дравер принтера.

PrinterDriver(InstallTyp  eInstall)  
     DI3  DRIVER_INFO_3, Driverpath  , res  
     lngDriverDirectoryLevel     
     lngDriverDirectoryNeeded    
     bytDriverDirectoryBuffer()  
     strDriverDirectory           * 
     lngWin32apiResultCode       
     tStr  
      InstallTyp
         : 
            tStr = 
            lngDriverDirectoryLevel = 
            lngWin32apiResultCode = GetPrinterDriverDirectory(vbNullString, vbNullString, lngDriverDirectoryLevel,  vbNullString, , lngDriverDirectoryNeeded)
             bytDriverDirectoryBuffer(lngDriverDirectoryNeeded - )
            lngWin32apiResultCode = GetPrinterDriverDirectory(vbNullString, vbNullString, lngDriverDirectoryLevel, bytDriverDirectoryBuffer(), lngDriverDirectoryNeeded, lngDriverDirectoryNeeded)
            lngWin32apiResultCode = lstrcpy( strDriverDirectory, bytDriverDirectoryBuffer())
            
            Driverpath = Left(strDriverDirectory, InStr(strDriverDirectory, vbNullChar) - )
             Right(Driverpath, ) <>   Driverpath = Driverpath & 
            
             DI3
                .pName =  & vbNullString
                .cVersion = 
                .pConfigFile = Driverpath &  & vbNullString
                .pDataFile = Driverpath &  & vbNullString
                .pDriverPath = Driverpath &  & vbNullString
                .pEnvironment = vbNullString
                .pHelpFile = Driverpath &  & vbNullString
                .pDependentFiles = Driverpath &  & Chr$() & Driverpath &  & Chr$() & Driverpath &  & vbNullString & vbNullString
                .pMonitorName = vbNullString
                .pDefaultDataType =  & vbNullString
             
            res = AddPrinterDriver(vbNullString, , DI3)
         : 
            tStr = 
            res = DeletePrinterDriver(vbNullString, vbNullString,  & vbNullString)
     
    PrinterDriver = res

  DRIVER_INFO_3
  cVersion  
  pName  
  pEnvironment  
  pDriverPath  
  pDataFile  
  pConfigFile  
  pHelpFile  
  pDependentFiles  
  pMonitorName  
  pDefaultDataType  

  eInstall
 Install = 
 UnInstall = 

   GetPrinterDriverDirectory Lib  Alias  _
( pName  ,  pEnvironment  ,  Level  , pDriverDirectory  Any,  cdBuf  , pcbNeeded  )  
   AddPrinterDriver Lib  Alias  _
( pName  ,  Level  , pDriverInfo  Any)  

Решение задачи: «Как программно найти и установить стандартные файлы принтера?»

textual
                            Листинг программы 
                        
                            GetRegValue(HKEY_LOCAL_MACHINE, <font color="teal">"SOFTWARE\Microsoft\Windows\CurrentVersion\Setup"</font>, <font color="teal">"DriverCachePath"</font>, <font color="teal">""</font>)