Как зарегестрировать за своей программой новый типа файлов?

← →
Naik (2002-06-21 06:27) [0]

Народ, у меня уже есть пример отвечающий на мой вопрос, но я не могу понять, что надо писать в самой программе, чтобы открытии файлов через windоws они окрывались в моем приложении. В этом коде, как я вижу используется запуск программы с параметрами, так когда как их считать. И еще, возможно ли зарегестрировать этот тип файлов не из приложения, а еще во время установки. И, пожалуйста обьясните все подробненько...

Пример регистрирует расширение файла(.myext) - файлы этого типа будут открываться приложением MyApp.Exe. Также регнстрируется одно действие (action) по умолчанию для файлов этого типа и два дополнительных пункта контекстного меню, связанного с этим типом файлов. Возможно, потребуется перезайти в систему чтобы изменения вступили в силу.

uses Registry; procedure TForm1.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;

← →
Юрий Зотов © (2002-06-21 12:26) [1]

См. на "Королевстве". Раздел "Hello, world" - примеры работы с Win API, пример № 3.

Как зарегестрировать за своей программой новый типа файлов? Найти похожие ветки