I created a 3d game launcher using teh help of the following snippet
Code: Select all
Structure DISPLAY_DEVICE
   cb.l
   DeviceName.b[32]
   DeviceString.b[128]
   StateFlags.l
   DeviceID.b[128]
   DeviceKey.b[128]
EndStructure 
dd.DISPLAY_DEVICE\cb=SizeOf(DISPLAY_DEVICE)
cr.s=Chr(10)
id.l=0
While EnumDisplayDevices_(0,id,@dd,0)
  devname$=PeekS(@dd\DeviceName[0])
  devstring$=PeekS(@dd\DeviceString[0])
  devid$=PeekS(@dd\DeviceID[0])
  devkey$=PeekS(@dd\DeviceKey[0])
  MessageRequester("",devname$+cr+devstring$+cr+devid$+cr+devkey$,0)
  id=id+1 
Wend