{------------------------------------------------------------------------------- @过程名: 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 Reg: TRegistry; ShFileInfo: TSHFILEINFO; IconIndex: integer; Begin
Result := False; {} // ShGetFileInfo(Pchar(ExecName), 0, SHFileInfo,SizeOf(SHFileInfo), SHGFI_LARGEICON or SHGFI_SYSICONINDEX or SHGFI_TYPENAME or SHGFI_SMALLICON); //IconIndex:=SHFileInfo.iIcon; //showmessage(inttostr(iconIndex)); If (FileExt = '''''''') Or (ExecName = '''''''') Then Exit; {如果文件类型为空或者没有定义执行程序就退出,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 Begin Reg.WriteString(''''Content Type'''', MIMEType); End; 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 + '''' "%1"''''); {执行程序一般都有参数,例如WinZip的“winzip32.exe ″%1″”,″%1″参数指ZIP文件的文件名。因此ExecName应视情况加入参数} Reg.CloseKey; If Not Reg.OpenKey(FileType + ''''\DefaultIcon'''', True) Then Exit; Reg.WriteString('''''''',ExecName+'''' ,1''''); ///ExtractFilePath( Reg.CloseKey; Result := true; Finally Reg.Free; End; End;
没有相关教程
|