varlphKey: HKEY;sKeyName: string;sKeyValue: string;beginsKeyName := 'myfile';sKeyValue := '我的文档';RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey);RegSetValue(lphKey,'',REG_SZ,pchar(sKeyValue),0);sKeyName :='.xyz';sKeyValue := 'myfile';RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey);RegSetValue(lphKey,'',REG_SZ,pchar(sKeyValue),0);sKeyName := 'myfile';sKeyValue :='c:/Windows/NotePad.exe %1';RegCreateKey(HKEY_CLASSES_ROOT,pchar(sKeyName),lphKey);RegSetValue(lphKey,'shell/open/command',REG_SZ,pchar(sKeyValue),MAX_PATH);end;---- 建立一新文件,使其扩展名为.xyz,然后双击它看是否是启动记事簿来打开的。 至于是打开一个还是打开两个要你自己程序支持就OK