文件關聯

我寫了一個多媒體程序能夠播放我本身定義的文件格式 .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