文件关联(50分)

我用下面过程实现文件关联,文件是可以打开(我是自己编写的一个文本方面的软件),但是内容是空的,没有显示文件里面的内容
请问是不是程序有问题 还是其他的问题 ?
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;

应该在程序里处理传入的文件

能说说具体怎么做吗?
还有什么好的方法吗?
谢谢!

在你的程序的工程文件（dpr）中，添加对命令行参数的处理啊！
其实调用的类似于：
yourexe.exe "%1"
那么你处理了Params了嘛？
________________
ParamCount可以得到有几个参数，
ParamStr(1)可以获取第一个参数。