| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как связать тип файла с программой? [D5, Win95/98]
ev1972@yandex.ru © (2003-03-19 14:19:00)Как программно установить связь файла по расширению с определенным приложением (Open With... в проводнике)?
Diamond Cat (2003-03-19 15:00:00) [1]procedure TForm1.Button1Click(Sender: TObject);
var
reg:Treginifile;
begin
reg:=Treginifile.Create( "" );
with reg do begin
RootKey:=HKEY_CLASSES_ROOT;
// регистрируем расширение *.aaa
WriteString(".aaa","","myfile");
WriteString("myfile","","мой тип файлов");
// обозначаем какое приложение будет открывать наш тип
WriteString("myfile\DefaultIcon","",application.ExeName+",0");
//дествия которые доступны при клике правой кнопкой на нашем файле
WriteString("myfile\shell\моя команда Открыть\command","",application.ExeName+" "%1"");
WriteString("myfile\shell\моя команда Печатать\command","",application.ExeName+" /p"+ " "%1"");
WriteString("myfile\shell\Еще одна моя команда\command","",application.ExeName+" /w"+" "%1"");
Writestring("myfile\shell","","моя команда Открыть");
//освобождаем файл регистра
Free;
//уведомляем систему ,об изменении ассоциаций, и заставляем ее обновить иконку значков
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
Clickmaker (2003-03-19 14:56:00) [2]HKEY_CLASSES_ROOT\.ext (По умолчанию)=yourfiletype
HKEY_CLASSES_ROOT\yourfiletype\shell\open\command (По умолчанию)="Путь к приложению" %1
| |
