EnableExplicit Define Resolution.DEVMODE Resolution.DEVMODE\dmSize = SizeOf(DEVMODE) If EnumDisplaySettings_(0, #ENUM_REGISTRY_SETTINGS, @Resolution) MessageRequester("","Farbtiefe: "+Str(Resolution\dmBitsPerPel)+" Bit",0) EndIf