Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.31;
Скачать: CL | DM;

Вниз

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

 
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



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

Текущий архив: 2003.07.31;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
1-100717
dim-
2003-07-16 16:15
2003.07.31
перерисовка Image


1-100661
Space
2003-07-15 13:48
2003.07.31
ProgressBar


3-100577
Sensor
2003-07-08 16:06
2003.07.31
TQuery и TDBGrid - Глюки


4-101036
Asteroid
2003-05-29 02:56
2003.07.31
WM_MEASUREITEM глючит?


3-100642
Avreliy
2003-07-10 17:17
2003.07.31
Изменение значения генератора в процедуре.