Как добавить свой пункт в контекстное меню файлов?

← →
MSTX (2003-05-18 14:44) [0]

Например "Зашифровать". И чтобы при нажатии открывалось приложение и в компоненте ListBox добавлялся этот файл?

← →
helper (2003-05-18 14:50) [1]

AddItem

← →
MSTX (2003-05-18 20:55) [2]

Я имею ввиду вот что:

Щелкаешь по файлу правой кнопкой,
выбираешь пунт "зашифровать" (например),
открывается окно проги,
в нем в компоненте ListBox повляется имя файла.

← →
Rocker (2003-05-19 11:39) [3]

Мне бы это было тоже интересно знать!

← →
DeadMeat (2003-05-19 13:18) [4]

www.shellplus.com

Здесь лежат компоненты, заточенные как-раз под это дело... Да ещё и бесплатные... Однако скачать их мне так и не удалось... Ихний сервак не поддерживает возобновление, а весит вся эта радость ~5 Mb. Если у кого-то есть ссылочка на них в другом, нормальном месте, павалуйста напишите...

← →
VMcL (2003-05-19 14:17) [5]

<КаталогDelphi>\Demos\ActiveX\ShellExt

← →
NickBat (2003-05-19 16:46) [6]

procedure TFormMain.FormCreate(Sender: TObject);
begin
FIniFile := TRegIniFile.Create(MyKeyReg);
//настройки
// проверяем есть ли соответствие для вашего типа файлов
With TRegistry.create do
begin
Try
RootKey:=HKEY_CLASSES_ROOT;
if not OpenKey(".xxx",false) then
if Application.MessageBox("Добавить данные в реестр?","Мой диалог",
mb_YesNo+mb_IconQuestion)=idYes then SetRegKey;
Finally
Free;
end;
end;
end;

procedure TFormMain.SetRegKey;
var
FileClass: string;
begin
FileClass := "Файлы моей программы";
With TRegistry.create do
begin
Try
RootKey:=HKEY_CLASSES_ROOT;
if OpenKey(".ххх",True) then
begin
WriteString("",FileClass);
CloseKey;
end;
if OpenKey(FileClass,True) then
begin
WriteString("","Файлы моей программы");
CloseKey;
end;
if OpenKey(FileClass+"\Shell\Open",True) then
begin
WriteString("","Open with МОЯ программа"); //Это действие при клике
CloseKey;
end;
if OpenKey(FileClass+"\Shell\Open\command",True) then
begin
WriteString("",Application.ExeName+" "%1""); //Тут что запускать -
//например екзкшник, где этот код выполняется
CloseKey;
// Result:=true;
end;
// Укажем файл и иконку в нём, в данном случае, иконку приложения
if OpenKey(FileClass+"\DefaultIcon",True) then
begin
WriteString("",Application.ExeName + ",0");
CloseKey;
end;
Finally
Free;
end;
end;
end;

← →
Polevi (2003-05-20 16:21) [7]

D:\Program Files\Borland\Delphi6\Demos\ActiveX\ShellExt

Как добавить свой пункт в контекстное меню файлов? Найти похожие ветки