在你的程序中编写代码,在注册表中添加两项(假设你的程序叫a.exe,欲打开的文件扩展名为.a):
  1. HKEY_CLASS_ROOT\.a,默认值 “afile"
  2. HKEY_CLASS_ROOT\afile\shell\open\command,默认值 “a.exe %1"
往注册表中写入数据可用delphi中的TRegistry类实现。