| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TSHellTreeView: как запретить проверку диска 3.5 (A)? [D6, WinXP]
Makhanev A.S. © (2003-05-10 16:18:00)а ещё лучше его оттуда вообще убрать
Ученик (2003-05-12 07:31:00) [1]"Ученик © (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"
Makhanev A.S. (2003-05-12 02:06:00) [2]
> Ученик © (11.05.03 19:02)
Убирается, но проверка A:(скрёжет в дисководе) осталась. Как его убрать?
Ученик (2003-05-11 19:02:00) [3]procedure TForm1.ShellTreeView1AddFolder(Sender: TObject;
AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := CompareText(AFolder.PathName, "A:\") <> 0
end;
Makhanev A.S. (2003-05-11 02:17:00) [4]никак?
| |
