Update .gitignore, ListingRawInputDevices.pb, and 4 more files...

2021-07-28 06:39:31 +02:00
commit be46a9fd53
6 changed files with 628 additions and 0 deletions
@@ -0,0 +1,49 @@
+;{- Code Header
+; ==- Basic Info -================================
+;         Name: ListingRawInputDevices.pb
+;       Author: Herwin Bozet
+;
+; ==- Compatibility -=============================
+;  Compiler version: PureBasic 5.70 (x86/x64)
+;  Operating system: Windows 10 21H1 (Previous versions untested)
+; 
+; ==- Sources -===================================
+;  https://docs.microsoft.com/en-us/windows/win32/inputdev/raw-input
+; 
+; ==- Links & License -===========================
+;  License: Unlicense
+;  GitHub: ???
+;}
+
+;- Notes
+
+; Windows may combine some devices into so-called "virtual devices"
+; https://stackoverflow.com/a/10331763/4135541
+
+; For the errors, see: https://docs.microsoft.com/en-us/windows/win32/debug/system-error-codes
+
+
+;- Compiler Directives
+
+; EnableExplicit
+
+CompilerIf #PB_Compiler_OS <> #PB_OS_Windows
+	CompilerError("ListingRawInputDevices.pb can only be compiled for Windows platforms !")
+CompilerEndIf
+
+XIncludeFile "../Includes/RawInput.pbi"
+
+
+;- Code
+
+; Counting RawInput devices...
+Define RawInputDeviceCount.i = 0
+
+If RawInput::GetRawInputDeviceList(#Null, @RawInputDeviceCount, SizeOf(RawInput::RAWINPUTDEVICELIST)) <> -1
+	Debug "Found "+Str(RawInputDeviceCount)+" RawInput devices !"
+Else
+	Debug "Error while listing RawInput devices: "+Str(GetLastError_())+" !"
+	End 1
+EndIf
+
+