Функция смены иконки папки в Vista на Delphi

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

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

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

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

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

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

Пишите сюда или на iconjob {at} gmail.com