From 6060eef8fe323e721903533ab39b80f4cb9fd22e Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sun, 16 Oct 2005 12:49:39 +0000
Subject: Added win32 module

---
 win32/.cvsignore |  2 ++
 win32/test.bmx   | 38 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 40 insertions(+)
 create mode 100644 win32/.cvsignore
 create mode 100644 win32/test.bmx

diff --git a/win32/.cvsignore b/win32/.cvsignore
new file mode 100644
index 0000000..8f686ea
--- /dev/null
+++ b/win32/.cvsignore
@@ -0,0 +1,2 @@
+test.debug.exe
+.bmx
\ No newline at end of file
diff --git a/win32/test.bmx b/win32/test.bmx
new file mode 100644
index 0000000..5429281
--- /dev/null
+++ b/win32/test.bmx
@@ -0,0 +1,38 @@
+' $Id$
+
+Import noddybox.win32
+Strict
+
+Local drives:Int=W32GetLogicalDrives()
+
+For Local b:Int=0 To 27
+	Local m:Int=1 Shl b
+
+	If (drives &m)=m
+		Local root:String=Chr(65+b)+":"
+		Local t:String
+		
+		Select W32GetDriveType(root)
+			Case DRIVETYPE_UNKNOWN
+				t="Unknown"
+			Case DRIVETYPE_NO_ROOT_DIR
+				t="No root dir"
+			Case DRIVETYPE_REMOVABLE
+				t="Removable"
+			Case DRIVETYPE_FIXED
+				t="Fixed"
+			Case DRIVETYPE_REMOTE
+				t="Remote"
+			Case DRIVETYPE_CDROM
+				t="CDROM"
+			Case DRIVETYPE_RAMDISK
+				t="RAM DISK"
+			Default
+				t="*** Bad return ***"
+		End Select
+		
+		Print root + " -- " + t
+	EndIf
+Next
+
+Print "Drive mask="+Bin(drives)
\ No newline at end of file
-- 
cgit v1.2.3