procedure registerfiletype(ft,key,dess,icon,prg:string);
//ft:扩展名(如.txt); key:名称(不是必须的)
//desc: 描述; icon:默认图标(不是必须的)
//prg: 打开该文件扩展名的EXE程序
var
myReg:TReginifile;
ct:Integer;
begin
ct :=pos('.',ft);
while (ct>0) do
begin
delete(ft,cc,1);
cc :=pos('.',ft);
end;
if (ft='') or (prg='') then
exit;
ft :='.'+ft;
myReg :=TReginifile.Create('');
try
myReg.rootkey :=HKEY_CLASSES_ROOT;
if key='' then
key :=Copy(ft,2,maxint)+'_auto_file';
myReg.writestring(ft,'',key);
myReg.writestring(key,'',desc);
if icon<>'' then
myReg.writestring(key+'\DefaultIcon','',icon);
myReg.writestring(key+'\shell\open\command','',prg+' %1" ');
finally
myReg.Free;
end;
end;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步