EnableExplicit

Procedure.i GetDisplay()
  Protected device.DISPLAY_DEVICE
  Protected settings.DEVMODE
  device\cb = SizeOf(DISPLAY_DEVICE)
  settings\dmSize = SizeOf(DEVMODE)
  EnumDisplayDevices_(#Null,#Null,device,#Null)
  MessageRequester("","Grafikkarte: "+PeekS(@device\DeviceString,128),0)
EndProcedure

GetDisplay()