文件的打开方式(50分)

我想做一个类似于WINDOWS资源管理器中的文件打开的DIALOG，提示使用何种程序打开文件，<br>请问如何能从注册表取出所有注册程序的信息？

有个控件可以实现:ItemProp<br>它可以弹出关于文件、目录的上下文菜单，可以用缺省方式打开文件<br>在www.delphifreestuff.com可以下载最新版本<br><br>安装该控件后，使用PerformDefaultAction函数就可以了。<br><br>uses ItemProp;<br>...<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; &nbsp; &nbsp; &nbsp; if FileExists('E:/Temp/abc.xyz') then<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PerformDefaultAction('e:/temp/abc.xyz', Handle)<br>&nbsp; &nbsp; &nbsp; &nbsp; else<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit;<br>end;<br>

function OpenAs_RunDLL(const h:hwnd;b:hwnd;const filenamechar;sw:integer=SW_SHOW):integer;stdcall;external 'shell32.dll' name 'OpenAs_RunDLL';<br>

多人接受答案了。