unit shjAssociateFileType;
interface
uses Windows, Registry;
{将文件类型strFileExtension与程序strExeFileName相关联,strDiscription为文件类型说明}
function AssignToProgram(const strFileExtension, strDiscription, strExeFileName: string ): boolean;
implementation
{将文件类型strFileExtension与程序strExeFileName相关联,strDiscription为文件类型说明}
function AssignToProgram(const strFileExtension, strDiscription, strExeFileName: string ): boolean;
var
regFile: TRegistry;
begin
//建立一个Registry实例
regFile := TRegistry.Create;
with regFile do
begin
//设置根键值为HKEY_CLASSES_ROOT
RootKey := HKEY_CLASSES_ROOT;
//创建或者打开扩展名自动关联注册键
OpenKey( '.' + strFileExtension, true);
//设置扩展名自动关联
WriteString('', strFileExtension + '_Auto_File');
//关闭键
CloseKey;
//创建或者打开打开自动关联键
OpenKey(strFileExtension + '_Auto_File', true);
//设置文件类型说明
WriteString('', strDiscription);
//关闭键
CloseKey;
//创建或打开关联程序键
OpenKey(strFileExtension + '_Auto_File\shell\open\command', true);
//设置关联程序(注意:%1加上双引号,可以解决文件路径中含空格的问题)
WriteString('',strExeFileName + ' "%1"');
//关闭键
CloseKey;
//打开默认图标键
OpenKey(strFileExtension + '_Auto_File\defaulticon',true);
//关联默认图标
WriteString('', strExeFileName + ',0');
//释放
Free;
Result := True;
end;
end;
end.