文件关联的问题 ( 积分: 200 )

在DELPHI中写了一个文件关联的程序,可是为什么打开文件时,只能运行所关联的程序而不打开文件呢>

文件的地址没有作为参数传进去........

你要让自己的程序从命令行参数中接受文件参数才行啊。请参考
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1727724

下面是例子：
if ParamCount>=1 then
begin
ScriptContainer.LoadFromFile(ParamStr(1));
end;

sKeyName := 'mp4';
sKeyValue := 'mp4';
RegCreateKey(HKEY_CLASSES_ROOT, pchar(sKeyName), lphKey);
RegSetValue(lphKey,'', REG_SZ, pchar(sKeyValue), 0);
sKeyName :='.mp4' ;
sKeyValue :='mp4' ;
RegCreateKey(HKEY_CLASSES_ROOT, pchar(sKeyName), lphKey);
RegSetValue(lphKey, '', REG_SZ, pchar(sKeyValue), 0);
sKeyName := 'mp4';
sKeyValue := 'C:/Program Files/诚丰HT卡播放器/MP4Player.exe %1'; { 注意路径 }
RegCreateKey(HKEY_CLASSES_ROOT, pchar(sKeyName), lphKey);
RegSetValue (lphKey, 'shell/open/command', REG_SZ,
pchar(sKeyValue), MAX_PATH);


这是我的代码能说得具体点吗?应该在哪个地方改

一般说来，在主窗体的FormCreate事件中判断ParamCount，并利用ParamStr打开文件即可。