Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.07.31;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.012 c
14-100975
Ower
2003-07-15 21:23
2003.07.31
Random


1-100783
explorer
2003-07-16 07:24
2003.07.31
Хранение картинок


14-100904
Volcano_XXX
2003-07-14 11:44
2003.07.31
TCP - Заголоваок


1-100698
GSergei
2003-07-18 13:24
2003.07.31
Просмотр содержимого


1-100806
Yuraz
2003-07-17 09:31
2003.07.31
Как узнать полный путь запущенной программы?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский