文件关联为我们带来很多的方便。Delphi自带有注册表对象TRegistry
,可以通过它取得
或改变注册表相关键值的内容。
Function GetAssociatedExec (FileExt : String ; var FileDescription , MIMEType : S
tring ): String ;
Var Reg : TRegistry ; FileType : String ;
begin
Result := '' ; {函数返回值是打开FileExt文件的可执行程序的名字及其参数}
Reg := TRegistry .Create ; {创建注册表对象的实例}
try
Reg .RootKey := HKey -Classes -Root ; {准备操作的注册表根键}
if not Reg .OpenKey (FileExt , False ) then Exit ; {贝氲奈募嘈驮谧⒉岜碇?br> 不存在时退出,False表示FileExt键值不存在时不自动创建新键}
FileType := Reg .ReadString ( '' ); {文件类型的简单描述}
MIMEType := Reg .ReadString ( 'Content Type' ); {内容MIME类型}
Reg .CloseKey ; {关闭当前关键字}
if (FileType = '' ) or ( not Reg .OpenKey (FileType , False )) then Exit ;
FileDescription := Reg .ReadString ( '' ); {内容类型的具体描述}
if not Reg .OpenKey ( 'shell\open\command' , False ) then Exit ; {眉当4嬗?br> 哪个程序、以什么参数打开FileExt类型的文件}
Result := Reg .ReadString ( '' ); {读取该键值内容}
Reg .CloseKey ; finally
Reg .Free ; {释放对象实例}
end ; end ;
由上面的例程可知 ,首先在HKey -Classes -Root寻找与FileExt (文件后缀 ,带“ .” )
相匹配的主键 ,然后从“默认” 键名取得键值 ,然后以该键值作为主键取得FileExt的具体描
述。在其子键shell\open\command中保存了由哪个程序、以什么参数打开FileExt类型的文件
的信息 ,只要修改它的内容 ,就可以控制由哪个程序打开FileExt类型的文件。
既然知道了文件关联在注册表中是如何定义的 ,只要反其道而行 ,就可以正确改变文件
的关联了。
function SetAssociatedExec (FileExt , Filetype , FileDescription ,MIMEType ,ExecN
ame : String ): Boolean ; {修改成功,返回True,否则False}
var Reg : TRegistry ;
begin
Result := False ; {}
if (FileExt = '' ) or (ExecName = '' ) then Exit ; {绻募嘈臀栈蛘呙挥?br> 定义执行程序就退出,FileExt必须带".",如.BMP}
Reg := TRegistry .Create ;
try
Reg .RootKey := HKey -Classes -Root ;
if not Reg .OpenKey (FileExt , True ) then Exit ; {辈荒苷氛业交虼唇‵ileExt键时
退出,这种情况一般是注册表有错误,以下同}
Reg .WriteString ( '' , FileType );
if MIMEType <> '' then Reg .WriteString ( 'Content Type' , MIMEType );
Reg .CloseKey ;
if not Reg .OpenKey (FileType , True ) then Exit ;
Reg .WriteString ( '' , FileDescription );
if not Reg .OpenKey ( 'shell\open\command' , True ) then Exit ;
Reg .WriteString ( '' , ExecName ); {葱谐绦蛞话愣加胁问?例如WinZip的“winzip3
2.exe "%1"”,"%1"参数指ZIP文件的文件名。因此ExecName应视情况加入参数}
Reg .CloseKey ;
finally Reg .Free ; end ;
end ;
写与读是一个性质相同、方向相反的过程 ,因此在SetAssociatedExec函数没有过多的说
明 ,可以参考GetAssociatedExec函数。至于TRegistry的使用 ,限于篇幅 ,本文从略。
摘自《赛迪网》 郑育洲文
或改变注册表相关键值的内容。
Function GetAssociatedExec (FileExt : String ; var FileDescription , MIMEType : S
tring ): String ;
Var Reg : TRegistry ; FileType : String ;
begin
Result := '' ; {函数返回值是打开FileExt文件的可执行程序的名字及其参数}
Reg := TRegistry .Create ; {创建注册表对象的实例}
try
Reg .RootKey := HKey -Classes -Root ; {准备操作的注册表根键}
if not Reg .OpenKey (FileExt , False ) then Exit ; {贝氲奈募嘈驮谧⒉岜碇?br> 不存在时退出,False表示FileExt键值不存在时不自动创建新键}
FileType := Reg .ReadString ( '' ); {文件类型的简单描述}
MIMEType := Reg .ReadString ( 'Content Type' ); {内容MIME类型}
Reg .CloseKey ; {关闭当前关键字}
if (FileType = '' ) or ( not Reg .OpenKey (FileType , False )) then Exit ;
FileDescription := Reg .ReadString ( '' ); {内容类型的具体描述}
if not Reg .OpenKey ( 'shell\open\command' , False ) then Exit ; {眉当4嬗?br> 哪个程序、以什么参数打开FileExt类型的文件}
Result := Reg .ReadString ( '' ); {读取该键值内容}
Reg .CloseKey ; finally
Reg .Free ; {释放对象实例}
end ; end ;
由上面的例程可知 ,首先在HKey -Classes -Root寻找与FileExt (文件后缀 ,带“ .” )
相匹配的主键 ,然后从“默认” 键名取得键值 ,然后以该键值作为主键取得FileExt的具体描
述。在其子键shell\open\command中保存了由哪个程序、以什么参数打开FileExt类型的文件
的信息 ,只要修改它的内容 ,就可以控制由哪个程序打开FileExt类型的文件。
既然知道了文件关联在注册表中是如何定义的 ,只要反其道而行 ,就可以正确改变文件
的关联了。
function SetAssociatedExec (FileExt , Filetype , FileDescription ,MIMEType ,ExecN
ame : String ): Boolean ; {修改成功,返回True,否则False}
var Reg : TRegistry ;
begin
Result := False ; {}
if (FileExt = '' ) or (ExecName = '' ) then Exit ; {绻募嘈臀栈蛘呙挥?br> 定义执行程序就退出,FileExt必须带".",如.BMP}
Reg := TRegistry .Create ;
try
Reg .RootKey := HKey -Classes -Root ;
if not Reg .OpenKey (FileExt , True ) then Exit ; {辈荒苷氛业交虼唇‵ileExt键时
退出,这种情况一般是注册表有错误,以下同}
Reg .WriteString ( '' , FileType );
if MIMEType <> '' then Reg .WriteString ( 'Content Type' , MIMEType );
Reg .CloseKey ;
if not Reg .OpenKey (FileType , True ) then Exit ;
Reg .WriteString ( '' , FileDescription );
if not Reg .OpenKey ( 'shell\open\command' , True ) then Exit ;
Reg .WriteString ( '' , ExecName ); {葱谐绦蛞话愣加胁问?例如WinZip的“winzip3
2.exe "%1"”,"%1"参数指ZIP文件的文件名。因此ExecName应视情况加入参数}
Reg .CloseKey ;
finally Reg .Free ; end ;
end ;
写与读是一个性质相同、方向相反的过程 ,因此在SetAssociatedExec函数没有过多的说
明 ,可以参考GetAssociatedExec函数。至于TRegistry的使用 ,限于篇幅 ,本文从略。
摘自《赛迪网》 郑育洲文
转载于:https://blog.51cto.com/zsqztg/191044