{-------------------------------------------------------------------------------
@过程名: slpert - TFm_main.SetAssociatedExec
@作者: Gavin
@日期: 2004.09.08
@功能描述:
@参数: FileExt, Filetype, FileDescription, MIMEType, ExecName: string
@返回值: Boolean
-------------------------------------------------------------------------------}
Function TFm_main.SetAssociatedExec(FileExt, Filetype, FileDescription,
MIMEType, ExecName: String): Boolean; {修改成功,返回True,否则False}
Var