注册文件类型，设置文件图标

{-------------------------------------------------------------------------------
@过程名: 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;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有