和一般的需求不一样，怎么得到文件名

和一般的需求不一样，如何得到文件名，高手请进
举个例子，有一个文件A.doc,我现在想做一个程序B.exe,在B.exe运行后，我双击A.doc时，得到A.doc这个文件的文件名及路径，谢谢

------解决方案--------------------
在www.ccrun.com上有
http://www.ccrun.com/view.asp?id=425
有监控文件和文件夹的组件
------解决方案--------------------
OpenDialog//
procedure TForm1.BitBtn1Click(Sender: TObject);
var
sStr:string;
begin
if not OpenPictureDialog1.Execute then
Abort;
sStr := OpenPictureDialog1.files[0];//函路径的文件名
if pos('.', sStr) <> 0 then
begin
while pos('A.doc', sStr) <> 0 do
sStr := copy(sStr, pos('A.doc', sStr) + 1, length(sStr) - pos('A.doc', sStr) +1);//文件名
end;//最后不含路径的文件名
showmessage(sstr);
end;
可以使用这个，，，，得到你需要的
------解决方案--------------------
在注册表中改一下关联即可，当双击A.doc时，使用B.exe打开该文件而不原来的word
再补充一下，在B.exe的窗体创建事件中
paramstr(1)即A.doc的文件名及路径