Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Добавление пункта в контекстное меню системы [D5, Win2k, WinXP]

BillyJeans © (2005-03-01 10:15:00)
Кто может подсказать способ реализации сабжа?

Poirot (2005-03-01 12:52:00) [1]
Add to [5]:
Shell Extensions - http://www.rsdn.ru"Руководство полного идлиота по написанию расшерений оболочки.." ил что-то в этом духе. примеры на VC++

Чапаев (2005-03-01 12:48:00) [2]
воот... Тейксейра...

BillyJeans (2005-03-01 12:27:00) [3]
мне нужен пункт, на подобии "winrar", для манипуляций с выбранным файлом...

Чапаев (2005-03-01 11:42:00) [4]
Это -- ассоциирование действий с некоторым расширением... Насколько я понял, автору нужно другое.

Ivolg (2005-03-01 11:23:00) [5]
Самый реальный способ, в реестре прописать:

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:05:00) [6]
Второй том Тейксейры&Пачеко. Глава 24 (кажется).

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »