Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];
Вниз
Добавление пункта в контекстное меню системы Найти похожие ветки
← →
BillyJeans (2005-03-01 10:15) [0]Кто может подсказать способ реализации сабжа?
← →
Чапаев © (2005-03-01 11:05) [1]Второй том Тейксейры&Пачеко. Глава 24 (кажется).
← →
Ivolg © (2005-03-01 11:23) [2]Самый реальный способ, в реестре прописать:
uses Registry;
...
procedureTForm1.Button1Click(Sender: TObject);
var
R : TRegIniFile;
begin
R := TRegIniFile.Create("");
with R do
begin
RootKey := HKEY_CLASSES_ROOT;
WriteString(".myext","","MyExt");
WriteString("MyExt","","Some description of MyExt files");
WriteString("MyExt\DefaultIcon","","C:\MyApp.Exe,0");
WriteString("MyExt\Shell","","This_Is_Our_Default_Action");
WriteString("MyExt\Shell\First_Action", "","This is our first action");
WriteString("MyExt\Shell\First_Action\command","",
"C:\MyApp.Exe /LotsOfParamaters %1");
WriteString("MyExt\Shell\This_Is_Our_Default_Action","",
"This is our default action");
WriteString("MyExt\Shell\This_Is_Our_Default_Action\command","",
"C:\MyApp.Exe %1");
WriteString("MyExt\Shell\Second_Action","",
"This is our second action");
WriteString("MyExt\Shell\Second_Action\command","",
"C:\MyApp.Exe /TonsOfParameters %1");
Free;
end;
end;
← →
Чапаев © (2005-03-01 11:42) [3]Это -- ассоциирование действий с некоторым расширением... Насколько я понял, автору нужно другое.
← →
BillyJeans (2005-03-01 12:27) [4]мне нужен пункт, на подобии "winrar", для манипуляций с выбранным файлом...
← →
Чапаев © (2005-03-01 12:48) [5]воот... Тейксейра...
← →
Poirot © (2005-03-01 12:52) [6]Add to [5]:
Shell Extensions - http://www.rsdn.ru "Руководство полного идлиота по написанию расшерений оболочки.." ил что-то в этом духе. примеры на VC++
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c
