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]

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

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

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