VPF::папка "Сетевое окружение" и флаги SFGAO_

Khim

Дата 3.7.2012, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 13.12.2008

Репутация: нет
Всего: нет

Доброго времени суток ув. форумачане!
Суть проблемы: есть виртуальная папка "Сетевое окружение". Она должна присутствовать на рабочем столе, я ее убрал. Получаю IEnumIDListt

Код


TShellFolder(Data).ShellFolder.EnumObjects(0, SHCONTF_FOLDERS or SHCONTF_INCLUDEHIDDEN, EnumList);

перечисляю элементы рабочего стола (где должна распологаться папка "Сетевое окружение", но она убрана)

Код


while EnumList.Next(1, ID, NumIDs) = S_OK do

Код


procedure InitNode(NewNode: TTreeNode; ID: PItemIDList; ParentNode: TTreeNode);
var
  NewFolder: IShellFolder;
  AFolder: TShellFolder;
begin
  AFolder := TShellFolder(ParentNode.Data);
  AFolder.ShellFolder.BindToObject(ID, Nil, IID_IShellFolder, NewFolder);
  TSF := TShellFolder.Create(AFolder, ID, NewFolder);
  NewNode.Data := TSF;
  with TSF do
  begin
    SHGetFileInfo (PChar (AbsoluteID), 0, FileInfo, SizeOF (FIleInfo), SHGFI_PIDL Or SHGFI_SysIconIndex Or SHGFI_SmallIcon Or SHGFI_DisplayName);
    NewNode.ImageIndex := FileInfo.iIcon;
    NewNode.Text := FileInfo.szDisplayName;
    SHGetFileInfo (PChar (AbsoluteID), 0, FileInfo, SizeOF (FileInfo), SHGFI_PIDL Or SHGFI_SysIconIndex Or SHGFI_OpenIcon or SHGFI_ATTRIBUTES);
    NewNode.SelectedIndex := FileInfo.iIcon;
    if NewNode.SelectedIndex = 0 then
      NewNode.SelectedIndex := NewNode.ImageIndex;
    NewNode.HasChildren := (FileInfo.dwAttributes And SFGAO_HASSUBFOLDER <> 0);
    NewNode.Cut := FileInfo.dwAttributes And SFGAO_Ghosted <> 0;
    If FileInfo.dwAttributes And SFGAO_Share <> 0 Then
      NewNode.OverlayIndex := 0;
  end;
end;

все дело в том что папка "Сетевое окружение" не имеет флагов SFGAO_GHOSTED и SFGAO_Hidden.
D7 WinXP

Как мне узнать скрыта ли виртуальная папка "Сетевое окружение" или отображается
Заранее спасибо.

Это сообщение отредактировал(а) Khim - 3.7.2012, 15:06

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »