Private Type SCSI_Info
    Hald As                           Long          'Host Adapter ID
    Target As                        Long          'SCSI Target
    lPtrName As                  String         'Ptr auf String mit 64 Bytes   
    BlockSize As                  Long          'Size of one logical Block
    Amount_of_Blocks As Long          'Anzahl of logical Blocks
End Type
 
Private Declare Function InitializeDLL Lib "wnaspi32.dll" Alias _
     "Init_WNASPI32" () As Long
 
Private Declare Function ScanSCSI Lib "wnaspi32.dll" Alias _
     "Scan_SCSI_Bus" _
     (Byref lptrSCSIInfo As Long, _
      Byval nTrueFalse As Long) As Long
 
Private Declare Sub SCSIPrevent Lib "wnaspi32.dll" Alias _
    "SCSI_Prevent_Medium_Removeal" _
    (Byref lptrSCSIInfo As Long, _
     Byval nTrueFalse As Long)
 
Private Declare Function StoreImage Lib "wnaspi32.dll" Alias _
    "Store_Image" _
    (Byref lptrSCSIInfo As Long, _
     Byval Drive As Long, _
     Byref sPtrFileName) As Long
 
Private Declare Function MakeImage Lib "wnaspi32.dll" Alias _
    "Make_Image" _
    (Byref lptrSCSIInfo As Long, _
     Byval Drive As Long, _
     Byref sPtrFileName) As Long