注册文件类型,设置文件图标
2004-09-10 12:05
183 查看
{-------------------------------------------------------------------------------
@过程名: 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;
@过程名: 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;
相关文章推荐
- Delphi 注册文件类型 设置文件图标
- C#中读取“已注册的文件类型”的图标及读取指定文件图标的方法
- C#中读取“已注册的文件类型”的图标及读取指定文件图标的方法
- C#中读取“已注册的文件类型”的图标及读取指定文件图标的方法
- 漂亮简洁的文件夹和文件选择器,可自由设置要选择的文件类型和文件图标
- 获取Windows系统注册的文件类型和图标
- C#中读取“已注册的文件类型”的图标及读取指定文件图标的方法
- C#中读取“已注册的文件类型”的图标及读取指定文件图标的方法 (转)
- 获取各文件类型在系统中注册的图标
- C#中读取“已注册的文件类型”的图标及读取指定文件图标的方法
- 自定义文件格式注册和图标设置
- IDEA文件类型图标
- Qt之QFileIconProvider续(获取文件图标、类型)
- 注册Windows文件类型和自动关联操作
- git设置只允许特定类型的文件
- php中header设置常见文件类型的content-type
- C#之WinForm基础 设置保存文件对话框的文件类型
- 应用程序(exe文件)图标设置
- 使用.reg文件删除暴风影视库图标和注册信息
- php curl编码类型设置、文件上传与接收数据