http://delphi-hlp.ru/index.php/dialogi/ispolzovanie-shell-api-funktsii-shbrowseforfolder.html