Я взял код из DELPHI WinAPI FAQ от сюда http://rxlib.ru/faqs/Winapifa.htm#00039D.
Там больше ничего нет