Registration file type, set file icon

xiaoxiao2021-03-06  62

{------------------------------------- ------------------------------ @ 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

转载请注明原文地址:https://www.9cbs.com/read-118400.html

New Post(0)