Текущий архив: 2003.07.24;
Скачать: CL | DM;

Вниз

проверка флоппи в ShellTreeView   Найти похожие ветки 

← →
Keith Flint   (2003-07-10 22:54) [0]

Дорогие мастера Delphi, я столкнулся со следующей проблемой - при использовании компонента ShellTreeView, заходя в папку Мой компьютер, каждый раз происходит проверка флоппика. Можно ли это как нибудь отключить. Т.к. это очень сильно тормозит работу проги... Заранее спасибо!

---

← →
Ученик ©   (2003-07-10 23:20) [1]

Вроде, это

{ Delphi7\Demos\ShellControls\ShellCtrls.pas }

function GetProperties(ParentFolder: IShellFolder; PIDL: PItemIDList): TShellFolderProperties;
var
Flags: LongWord;
begin
Result := [];
if ParentFolder = nil then Exit;

Flags := 0;
ParentFolder.GetAttributesOf(1, PIDL, Flags);
if IsElement(SFGAO_FILESYSTEM, Flags) then Include(Result, fpFileSystem);
if IsElement(SFGAO_FILESYSANCESTOR, Flags) then Include(Result, fpFileSystemAncestor);
if IsElement(SFGAO_REMOVABLE, Flags) then Include(Result, fpRemovable);
if IsElement(SFGAO_VALIDATE, Flags) then Include(Result, fpValidate);

if not (fpRemovable in Result) then begin
Flags := SFGAO_DISPLAYATTRMASK;
ParentFolder.GetAttributesOf(1, PIDL, Flags);
if IsElement(SFGAO_GHOSTED, Flags) then Include(Result, fpCut);
if IsElement(SFGAO_LINK, Flags) then Include(Result, fpIsLink);
if IsElement(SFGAO_READONLY, Flags) then Include(Result, fpReadOnly);
if IsElement(SFGAO_SHARE, Flags) then Include(Result, fpShared);
end
end;

---

← →
Keith Flint   (2003-07-11 20:34) [2]

Нет, это к сожалению не работает, но всё равно спасибо... Может вс таки кто-нибудь знает как это сделать

---

Страницы: 1 вся ветка

Текущий архив: 2003.07.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.026 c