{
关键字=设置扩展名缺省打开程序
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 15:07:32
数字签名=F6BEB15EF1649FBF2C49C80DAD8EDE2B
}
uses
Registry, shlobj, Windows;
procedure RegisterFileType(ExtName:String; AppName:String) ;
var
reg:TRegistry;
begin
{设置扩展名缺省打开程序}
reg := TRegistry.Create;
try
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey(‘.’ + ExtName, True) ;
reg.WriteString(‘’, ExtName + ‘file’) ;
reg.CloseKey;
reg.CreateKey(ExtName + ‘file’) ;
reg.OpenKey(ExtName + ‘file\DefaultIcon’, True) ;
reg.WriteString(‘’, AppName + ‘,0’) ;
reg.CloseKey;
reg.OpenKey(ExtName + ‘file\shell\open\command’, True) ;
reg.WriteString(‘’,AppName+’ “%1”') ;
reg.CloseKey;
finally
reg.Free;
end;
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil) ;
end;