how do I programmatically get GDI and User Object count in Delphi?

I have a program thats starting to reach the 10,000 User Object limit. When I force it to go over the limit the program crashes. I could have my users change the registry entry but that is a awkward thing to ask a customer and many are not given access to the registry.

I can see the value in Task manager but I would like to get the value in my application. Is there any way to get those values programmatically?

OK I am now rea开发者_开发问答dy for all the comments about how only a badly written program needs that many objects ;>)

Call GetGuiResources. Pass GetCurrentProcess() as parameter