{------------------------------------- ------------------------------ @ process name: slpert -> TFm_main.SetAssociatedExec @ author: Gavin @ date: 2004.09.08 @Function Description: @Pict: FileExT, FileType, FileDescription, MimeType, Execname: String @ 值: Boolean --------------------------- -------------------------------------------------- -}
Function TFm_main.SetAssociatedExec (FileExt, Filetype, FileDescription, MIMEType, ExecName: String): Boolean; {modify successful, returns True, otherwise False} Var Reg: TRegistry; ShFileInfo: TSHFILEINFO; IconIndex: integer; Begin