[REBOL] Re: Calling Windows API
From: rotenca:telvia:it at: 13-Dec-2004 15:04
Hi all,
this stuff can be done, but in an insane mode.
This is the hacked solution:
kernel32.dll: load/library %/C/WINDOWS/system32/kernel32.dll
GetVolumeInfo: make routine! [
disk [string!]
lpVolumeNameBuffer [string!]
size [integer!]
lpVolumeSerialNumber [integer!]
lpMaximumComponentLength [integer!]
lpFileSystemFlags [integer!]
lpFileSystemNameBuffer [string!]
size2 [integer!]
return: [integer!]
] kernel32.dll "GetVolumeInformationA"
st: make struct! [
VolumeNameBuffer [string!]
FileSystemNameBuffer [string!]
] reduce [VNB: make string! 100 FSNB: make string! 100]
GetVolumeInfo "C:\" VNB 20 0 0 0 FSNB 20
probe st/FileSystemNameBuffer
;"NTFS"
There are many points about my example code which should need a
wish/issue/bug item in RAMBO.