如何能让所有文件的右健，添加一个用某某软件打开，并且让软件中的listview得到这些文件路径？？(100分)

如何能让所有文件的右健，添加一个用某某软件打开，并且让软件中的listview得到这些文件路径？？

Use dll, search the old letter!

转载:用Delphi实现文件关联<br>1、　　文件关联为我们带来很多的方便。Delphi自带有注册表对象TRegistry，可以通过它取<br>得或改变注册表相关键值的内容。<br>　　Function GetAssociatedExec(FileExt: String; var FileDescription, MIMEType: String): String;<br>　　Var Reg: TRegistry; FileType: String;<br>　　begin<br>　　 Result := ′′;{函数返回值是打开FileExt文件的可执行程序的名字及其参数}<br>　　 Reg := TRegistry.Create;{创建注册表对象的实例}<br>　　 try<br>　　　　Reg.RootKey := HKey—Classes—Root;{准备操作的注册表根键}<br>　　　　if not Reg.OpenKey(FileExt, False) then Exit;{当传入的文件类型在注册<br>表中不存在时退出，<br>False表示FileExt键值不存在时不自动创建新键}<br>　　　　FileType := Reg.ReadString(′′);{文件类型的简单描述}<br>　　　　MIMEType := Reg.ReadString(′Content Type′);{内容MIME类型}<br>　　　　Reg.CloseKey;{关闭当前关键字}<br>　　　　if (FileType = ′′) or (not Reg.OpenKey(FileType, False)) then Exit;<br>　　　　FileDescription := Reg.ReadString(′′);{内容类型的具体描述}<br>　　　　if not Reg.OpenKey(′shell/open/command′, False) then Exit;{该键值保<br>存由哪个程序、以什么参数打开FileExt类型的文件}<br>　　　　Result := Reg.ReadString(′′);{读取该键值内容}<br>　　　　Reg.CloseKey; finally<br>　　　　Reg.Free;{释放对象实例}<br>　　 end; end;<br>　　由上面的例程可知，首先在HKey—Classes—Root寻找与FileExt（文件后缀，带“.”<br>）相匹配的主键，然后从“默认” 键名取得键值，然后以该键值作为主键取得FileExt的<br>具体描述。在其子键shell/open/command中保存了由哪个程序、以什么参数打开FileExt类<br>型的文件的信息，只要修改它的内容，就可以控制由哪个程序打开FileExt类型的文件。<br>　　既然知道了文件关联在注册表中是如何定义的，只要反其道而行，就可以正确改变文件<br>的关联了。<br>function SetAssociatedExec(FileExt, Filetype, FileDescription,MIMEType,ExecName: String): Boolean;<br>{修改成功，返回True，否则False}<br>　　var Reg: TRegistry;<br>　　begin<br>　　 Result := False;{}<br>　　 if (FileExt = ′′) or (ExecName = ′′) then Exit;{如果文件类型为空或者<br>没有定义执行程序就退出，FileExt必须带″.″，如.BMP}<br>　　 Reg := TRegistry.Create;<br>　　 try<br>　　Reg.RootKey := HKey—Classes—Root;<br>　　if not Reg.OpenKey(FileExt, True) then Exit;{当不能正确找到或创建FileExt<br>键时退出，这种情况一般是注册表有错误，以下同}<br>　　Reg.WriteString(′′, FileType);<br>　　if MIMEType &lt;&gt; ′′ then Reg.WriteString(′Content Type′, MIMEType);<br>　　Reg.CloseKey;<br>　　if not Reg.OpenKey(FileType, True) then Exit;<br>　　Reg.WriteString(′′, FileDescription);<br>　　if not Reg.OpenKey(′shell/open/command′, True) then Exit;<br>　　Reg.WriteString(′′, ExecName);{执行程序一般都有参数，例如WinZip的<br>“winzip32.exe ″％1″”，″％1″参数指ZIP文件的文件名。因此ExecName应视<br>情况加入参数}<br>　　Reg.CloseKey;<br>　　 finally Reg.Free; end;<br>　　end;<br>　　写与读是一个性质相同、方向相反的过程，因此在SetAssociatedExec函数没有过<br>多的说明，可以参考GetAssociatedExec函数。至于TRegistry的使用，限于篇幅，<br>本文从略。<br><br>2、取文件路径如下：<br>首先用ParamCount获得参数个数，<br>然后用ParamStr(Index)获得各个参数。 <br>&nbsp;<br>

打开注册表，在HKEY_CLASSES_ROOT键下，找到主键为*的键，（如果没有就创建）<br>在下面建立主键shell,再在shell下建立open，再在open下建立command，<br>结果为HKEY_CLASSES_ROOT/*/shell/open/command<br>在open的(默认)键值中写上你需要添加到菜单的文字，如“用某某软件打开”，<br>在command的(默认)键值中写上你程序的地址+ "%1"，<br>例如:"F:/PROGRAM FILES/CPLAYER/C-PLAYER.EXE "%1""<br>然后你就会发现所有文件的右键都出现了“用某某软件打开”。<br>当然，你的程序必须写上接受代码：<br>&nbsp; if Length(paramstr(1))&gt;0 then AddFile(paramstr(1));<br>//AddFile函数你可以换成自定义函数，来添加文件地址paramstr(1)。<br><br><br>

to C-xy:<br>试了半天，还是不行，有具体实例没有？？

上面已经很清楚了。

哎，来晚了！