'
' GetLogicalDriveStrings
'
' Author: Joe Strazzere
'
'Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
dim ptr as unsigned
dim pt2 as unsigned
ptr=allocate(100)
pokestring(ptr," ",1)
a=External("kernel32","GetLogicalDriveStringsA",100,ptr)
msgbox(str$(a))
pt2=ptr+0
buf$=peekstring$(pt2)
msgbox("["+Buf$+"]")
