文件关联

我写了一个多媒体程序能够播放我本身定义的文件格式 .abc，
个人问题是如何实现：双击 .abc文件，自动打开程序播放它，
下面代码，能够实现关联，但如何才能播放它？？？


下面的代码能够实现.me和Notepad关联，

Delphi如何实现文件关联
关联是Windows的一个显著特性。好比安装了office后，后缀是.doc的文
件会和word关联在一块儿。若是咱们想本身建立关联关系，就必须从注册表入手。下
面的代码会把后缀是.me的文件和Notepad关联在一块儿，请参阅：

procedure  TForm1.Button1Click（Sender:  TObject）;
var
    lphKey:  HKEY;
    sKeyName:  string;
    sKeyvalue:  string;
begin
    sKeyName  :=  'ReadMeFile';
    sKeyvalue  :=  '说明文档';
    RegCreateKey（HKEY_CLASSES_ROOT,  pchar（sKeyName）,  lphKey）;
    RegSetvalue（lphKey,  '',  REG_SZ,  pchar（sKeyvalue）,  0）;
    sKeyName  :=  '.me';
    sKeyvalue  :=  'ReadMeFile';
    RegCreateKey（HKEY_CLASSES_ROOT,  pchar（sKeyName）,  lphKey）;
    RegSetvalue（lphKey,  '',  REG_SZ,  pchar（sKeyvalue）,  0）;
    sKeyName  :=  'ReadMeFile';
    sKeyvalue  :=  'c:\Win95\NotePad.exe  %1';  {  注意路径  }
    RegCreateKey（HKEY_CLASSES_ROOT,  pchar（sKeyName）,  lphKey）;
    RegSetvalue（lphKey,  'shell\open\command',  REG_SZ,
    pchar（sKeyvalue）,  MAX_PATH）;
end;

更多0