Показ диалога New Share из Delphi

Необходимо написать функцию на Delphi 7, при вызове которой показывается стандартный диалог Windows для задания Network Share диска/каталога.

function ShowShareDialog(path: string): boolean;

где path - каталог или диск

Функция должна вернуть true при успешном завершении.

Пример: ShowShareDialog('C:\');

ShowShareDialog('C:\Temp');

Функция должна работать под Windows 2000, XP, Vista, 7.

Пример вызова окна во вложении.

Оплата WebMoney.