请问怎么样来实现用自己的程序打开文件！(10分)

请问怎么样来实现用自己的程序打开文件！例如：自己做一个写字板或播放器什么的，怎么样用自己的程序打开文件！
谢谢大家！天天快乐！

你的意思的在操作系统中双击可以用你的程序打开文件吗？
是：改注册表！

关联是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;

to：k178pgy，好像不行啊，可能是我弄错了，我想知道这断代码放在什么地方！谢谢！

注册文件类型 application.param[1] 为打开的文件名