' #include "sddim_dll.h"
'
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
 
Private Declare Sub CopyMemory Lib "kernel32" Alias _
    "RtlMoveMemory" _
    (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
' // Global Variables ... SCSI_Info mySCSI_Info[100];
' // Information about 100 (who owns them?) SCSI drives
 
Private mySCSI_Info(100) As SCSI_Info
Private amount_of_Disk_Devices As Long ' // amount of SCSI Disk Devices 
' connected to PC
 
Sub Main()
    Dim rVal As Long
    Dim jn As Integer
    Dim nDrive As Integer
 
    ' WNASPI32.DLL initialisieren
    rVal = InitializeDLL()
    If rVal = 0 Then
       MsgBox "WNASPI32.DLL not present or no SCSI Host Adapters found!", _
         vbCritical, "Abbruch"
       Exit Sub
    End If
 
    ' // scan SCSI Bus for Disk drives and store Disk Drive(s) information and 
    ' amoun of Disk Drives
    ' // also prevent medium removal for all found disk devices
    amount_of_Disk_Devices = ScanSCSI(mySCSI_Info, True)
 
    ' // If no Disk Devices were found exit.......
    If amount_of_Disk_Devices = 0 Then
         MsgBox "No SCSI Disk Drives found!", vbExclamation, "Abbruch"
         Exit Sub
    End If
 
    show_devices
 
    ' Im nachfolgenden wird gefragt, ob man eine Image erstellen
    ' will oder eine Image speichern will.
    jn = MsgBox("Wollen Sie eine Image erstellen oder eine Image speichern. " & _
      String(2, vbCrLf) & _
                "Drücken Sie <JA> wenn Sie eine Image erstellen wollen." & _
                vbCrLf & _
                "Drücken Sie <Nein> wenn Sie eine Image speichern wollen." & _
                vbCrLf & _
                "Drücken Sie <Abbrechen> wenn Sie die Aktion abbrechen wollen", _
                vbQuestion + vbYesNoCancel, "Frage:")
    If jn = vbCancel Then Exit Sub
 
    If jn = vbYes Then 'Image erstellen
       nDrive = InputBox("Bitte geben Sie die Nummer des Laufwerks ein:", _
         "Laufwerkauswahl")
       If nDrive < 0 Or nDrive > amount_of_Disk_Devices Then Exit Sub
 
       ' Im nachfolgenden ist ein Pfad "hardgecodet"
       MakeImage mySCSI_Info, nDrive, "C:	est.sdi"
    End If
 
    If jn = vbNo Then 'Image in Drive speichern
       nDrive = InputBox("Bitte die Nummer des Laufwerks an.", "Dateiangabe" & _
         "erwartet")
       If nDrive < 0 Or nDrive > amount_of_Disk_Devices Then Exit Sub
       StoreImage mySCSI_Info, nDrive, "C:	est.sdi"
    End If
End Sub
 
' // shows all present SCSI Disk Drives
Private Sub show_devices()
    Dim i As Long, j As Long
    Dim myText As String
    Dim a As String
 
    For i = 0 To amount_of_Disk_Devices - 1
       myText = mySCSI_Info(i).Hald + " "
       myText = myText + mySCSI_Info(i).Target + " "
       a = Space(64)
 
       ' Zeiger auf String in Var A umsetzen
       CopyMemory ByVal a, mySCSI_Info(i).lPtrName, 64
       myText = myText + Trim(a)
 
       ' Stringausgabe - wohin? mhm eine Listbox auf die Form!
       List1.AddItem myText
 
    Next
End Sub