Отображение расширения пространства имен оболочки Delphi в стандартной системе open/saveialog

Question

Я пишу расширение пространства имен Shell для моего приложения в Delphi.

Здесь есть хороший пример кода, проблема в том, что пользовательское окно действительно появляется в Проводнике, но не появляется в стандартном диалоге Windows FileOpen/FileSave.

Как мне заставить это работать там же? Здесь есть аналогичный вопрос, не связанный с delphi, но я не смог заставить это решение работать.

---

Изменить: образец кода прилагается:

function TShellFolderImpl.GetAttributesOf(cidl: UINT; var apidl: PItemIDList;
  var rgfInOut: UINT): HResult;
begin
  rgfInOut := rgfInOut or SFGAO_FILESYSANCESTOR;
  Result := S_OK; //E_NOTIMPL;
end;