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