这个问题查查前面的帖子很多.
宣示自己的文件类型主要是对注册表进行操作,在注册表里声明你自己的文件类型,并让你自己
编的程序来打开,
给你段代码
这里的文件类型是*.KCI
var Reg:TRegistry;
begin
{reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey('.kci', true);
reg.WriteString('', 'kci_auto_file');
reg.CloseKey;
reg.OpenKey('kci_auto_file/shell/open/command', true);
reg.WriteString('', '"' + application.ExeName + '" "%1"');
reg.CloseKey;
reg.OpenKey('kci_auto_file/defaulticon',true);
reg.WriteString('',application.ExeName+',0');
Reg.CloseKey;
reg.Free;
end;
在uses里面将Registry包含进去.
这段代码在程序首次运行后就更改了注册表,所以运行以后可以将其改为注释,以后在发布程序
的时候再运行.