gistfile1.txt

Local $handleDLL = DLLOpen("C:\DelcomDLL.dll")

Local $devices = DllCall($handleDLL,"dword","DelcomGetDeviceCount","dword",0)

Local $stStrings[$devices[0]]
Local $tDeviceArray = DllStructCreate("wchar* Items[" & $devices[0] & "]")

For $i = 1 To $devices[0]
    $stStrings[$i - 1] = DllStructCreate("wchar Name[512]")
    DllStructSetData($tDeviceArray, "Items", $stStrings[$i - 1], $i)
Next

Local $result = DllCall($handleDLL,"dword","DelcomGetNthDevice","dword",1,"dword",0,"ptr",DllStructGetPtr($tDeviceArray))

For $i = 1 To $devices[0]
    MsgBox(0, "Device number " & $i, DllStructGetData($stStrings[$i - 1], "Name"))
Next

DllClose($handleDLL)