![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ассоциация файлов с программой [D7]
Oddin © (2005-01-11 22:07:00)Как можно ассоциировать определенные типы файлов с моей программой?
Orc (2005-01-12 07:43:00) [1]Например так:
procedure RegisterFileType(prefix:string; exepfad:string; IconIndex:byte);
var reg:TRegistry;
begin
reg:=TRegistry.Create;
try
reg.RootKey:= HKEY_CLASSES_ROOT;
reg.OpenKey('.'+prefix,True);
reg.WriteString('',prefix+'file');
reg.CloseKey;
reg.CreateKey(prefix+'file');
reg.OpenKey(prefix+'file\DefaultIcon',True);
reg.WriteString('',exepfad+','+IntToStr(IconIndex));
reg.CloseKey;
reg.OpenKey(prefix+'file\shell\open\command',True);
reg.WriteString('',exepfad+' "%1"');
reg.CloseKey;
finally
reg.Free;
end;
end;
Vasya.ru (2005-01-12 00:48:00) [2]в реестре прописать. Куча примеров в сети.