![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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 решает все проблемы...