Скачать: CL | DM;

TSHellTreeView: как запретить проверку диска 3.5 (A)?   Найти похожие ветки 

← →
Makhanev A.S. ©   (2003-05-10 16:18) [0]

а ещё лучше его оттуда вообще убрать

---

← →
Makhanev A.S. ©   (2003-05-11 02:17) [1]

никак?

---

← →
Ученик ©   (2003-05-11 19:02) [2]

procedure TForm1.ShellTreeView1AddFolder(Sender: TObject;
AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := CompareText(AFolder.PathName, "A:\") <> 0
end;

---

← →
Makhanev A.S. ©   (2003-05-12 02:06) [3]

> Ученик © (11.05.03 19:02)

Убирается, но проверка A:(скрёжет в дисководе) осталась. Как его убрать?

---

← →
Ученик ©   (2003-05-12 07:31) [4]

"Ученик © (08.11.02 12:18)

{ Delphi6\Demos\ShellControls\ShellCtrls.pas }

procedure TCustomShellTreeView.InitNode(NewNode: TTreeNode; ID: PItemIDList; ParentNode: TTreeNode);
...
begin
...
//if fpShared in Properties then NewNode.OverlayIndex := 0;
...
end;

Не уверен, что это хорошо, лучше дополнительно проверять, что это Floppy"

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c