Написать ф-цию смены иконки папки вVista на Delphi

Приветствую,

Стоит задача написать функцию, которая бы позволяла изменить иконку папки в Висте. Именно в Vista. Т.е. надо программным образом сделать ТОЖЕ САМОЕ, что Windows позволяет сделать в свойствах папки.

На входе функции – путь к ICO файлу и путь к папке.

На выходе – папка с иконкой, как в этом файле.

Должно позволять сначла поменять иконку один раз, а потом поменять иконку паки, для которой уже меняли иконку. Работать должно без перезагрузки.

ВНИМАНИЕ!!! Уже несколько человек пытались реализовать проект, но, увы, неудачно. Проблема не в том, чтоб создать Desktop.ini в нужной папке и присвоить ей атрибут "системная". Проблема с обновлением кэша иконок в Vista. После первой смены иконки, она кэшируется и второй раз иконка берется из кэша, хоть в Desktop.ini уже прописана другая икока. Собственно, именно эту проблему под вистой надо решить.

Оплата по договоренности.

Пишите на [email protected] или 132360878.

На сообщения в личку ответов не будет.