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

TShellListView   Найти похожие ветки 

← →
Progh   (2004-12-20 16:00) [0]

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

---

← →
olookin ©   (2004-12-20 18:21) [1]

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

---

← →
DelphiN! ©   (2004-12-21 14:06) [2]

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


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

---

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

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

---

← →
Progh   (2004-12-24 06:30) [4]

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

---

← →
olookin ©   (2004-12-24 08:31) [5]

[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;

---

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

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



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