Delphi里实现文件格式关联应用程序的功能

本文整理自网络，侵删。

 
很多程序都有关联文件格式的机制，例如图片查看器都会将常见图片格式关联到自己的程序上，使用特定的图片查看器来打开。那么Delphi编程如何实现这个功能呢？看看关键代码如下：

uses System.IOUtils, Winapi.ShellAPI, Winapi.ShlObj;

// 关联后缀名的方法
procedure RegistryAppExt(const Ext, AppName, AppPath: string);
const
  nRegFmt = 'Windows Registry Editor Version 5.00' + sLineBreak + '[HKEY_CLASSES_ROOT\%0:s]' + sLineBreak + '@="%1:s"' +
    sLineBreak + '[HKEY_CLASSES_ROOT\%1:s\DefaultIcon]' + sLineBreak + '@="%2:s,0"' + sLineBreak +
    '[HKEY_CLASSES_ROOT\%1:s\shell]' + sLineBreak + '[HKEY_CLASSES_ROOT\%1:s\shell\open]' + sLineBreak +
    '[HKEY_CLASSES_ROOT\%1:s\shell\open\command]' + sLineBreak + '@="%3:s"';
var
  RegStr: string;
  str3, str4: string;
  RegTmpFile: string;
begin
  // 导入注册表
  str3 := StringReplace(AppPath, '\', '\\', [rfReplaceAll]);
  str4 := StringReplace(Format('"%s" "%%1"', [str3]), '"', '\"', [rfReplaceAll]);
  RegStr := Format(nRegFmt, [Ext, AppName, str3, str4]);
  RegTmpFile := TPath.GetTempPath + 'RegTmp.reg';
  with TStringList.Create do
  begin
    Text := RegStr;
    SaveToFile(RegTmpFile);
    Free;
  end;
  ShellExecute(0, nil, PChar(RegTmpFile), nil, nil, SW_SHOWNORMAL);
  // 刷新图标
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
end;

// 调用方法
procedure TForm7.Button1Click(Sender: TObject);
begin
  RegistryAppExt('.delphi', 'MyApp', Application.ExeName);
end;
 

相关阅读 >>

Delphi unigui form控件跳转

Delphi 注入不用writeprocessmemory 函数

Delphi 如何在stringgrid中嵌入控件，如按钮等等

Delphi 使用zlib对datasetprovider.data数据包进行压缩传输的测试

Delphi webbrowser1去边框

Delphi读取文本(一行一行读入)

Delphi 对zlib单元进行再封装

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法

Delphi android实例-红外线操作(xe10.2+小米5)

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi里实现文件格式关联应用程序的功能