如何在点击自己定义的一个文件（*.frp），自动激活对应打开应用程序。详细内容看帖。

Question

我做了一个观看打印预览程序。
现在我想在点击打印模板文件是，自动调用预览程序。
如：点击 mmm.doc 文件时，调用word文档显示出来。

Answer 1

1,文件关联；
uses 
  registry, shlobj; procedure TForm1.RegisterFileType(prefix: string; exepfad: string); 
var 
  reg: TRegistry; 
begin 
  reg := TRegistry.Create; 
  try 
    reg.RootKey := HKEY_CLASSES_ROOT; 
    //create a new key  --> .pci 
    reg.OpenKey('.' + prefix, True); 
    try 
      //create a new value for this key --> pcifile 
      reg.Writestring('', prefix + 'file'); 
    finally 
      reg.CloseKey; 
    end; 
    //create a new key --> pcifile 
    reg.CreateKey(prefix + 'file'); 
    //create a new key pcifile\DefaultIcon 
    reg.OpenKey(prefix + 'file\DefaultIcon', True); 
    //and create a value where the icon is stored --> c:\project1.exe,0 
    try 
      reg.Writestring('', exepfad + ',0'); 
    finally 
      reg.CloseKey; 
    end; 
    reg.OpenKey(prefix + 'file\shell\open\command', True); 
    //create value where exefile is stored --> c:\project1.exe "%1" 
    try 
      reg.Writestring('', exepfad + ' "%1"'); 
    finally 
      reg.CloseKey; 
    end; 
  finally 
    reg.Free; 
  end; 
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); 
end; 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  RegisterFileType('pci', 'c:\project1.exe'); 
end;

Answer 2

注册文件类型就可以了，www.Torry.net上有免费的源代码！！！

Answer 3

同意： outer2000(天外流星)

Answer 4

用outer2000(天外流星) 的方法