Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TShellListView [D6, Win2k, WinXP]


Progh ©   (2004-12-20 16:00:00) 

Как в компоненте TShellListView запретить запускать файлы, а также запретить вызов контексного меню проводника(а лучше заменить своим )?


olookin   (2004-12-24 08:31:00) [1]

[4] Progh   (24.12.04 06:30)

По моему, надо как то изменить жирные куски в исходном коде TShellListView

procedure TCustomShellListView.DblClick;
begin
 if FAutoNavigate and (Selected <> nil) then
   with Folders[Selected.Index] do
     if IsFolder then
       SetPathFromID(AbsoluteID)
     else
       ShellExecute(Handle, nil, PChar( PathName), nil,
         PChar(ExtractFilePath( PathName)), 0);  
 inherited DblClick;
end;


Progh   (2004-12-24 06:30:00) [2]

Народ, ну помогите, очень надо !


Progh   (2004-12-22 08:49:00) [3]

Так как сделать чтобы ничего не запускалось из TShellListView-a


DelphiN!   (2004-12-21 14:06:00) [4]


> [1] olookin ©   (20.12.04 18:21)


EXE файлы всеравно запускаются ...


olookin   (2004-12-20 18:21:00) [5]

AutoContextMenus:=false решает все проблемы...


Наверх

Титульная страница Поиск, карта сайта Написать письмо