用Delphi实现文件关联

文件关联为我们带来很多的方便。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 ; {眉�值保存�?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 ; {辈荒苷�确找到或创建FileExt键时
退出,这种情况一般是注册表有错误,以下同}
  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的使用 ,限于篇幅 ,本文从略。
  摘自《赛迪网》 郑育洲文