Как получить системные TIcon ("Папка", "Открытая папка") в DELPHI

SHGetFileInfo (PChar (Extension), FILE_ATTRIBUTE_NORMAL, FileInfo, SizeOf (FileInfo), SHGFI_TYPENAME or SHGFI_USEFILEATTRIBUTES);

Такой код возвращает зарегистрированные в ОС расширения файлов, но как получить TIcon папок не понимаю...