//源自cAkk:<br>var<br> sei:TSHELLEXECUTEINFO;<br>begin<br> ZeroMemory(sei,sizeof(sei));<br> sei.cbSize = sizeof(sei);<br> sei.lpFile = FileName;<br> sei.lpVerb = "properties";<br> sei.fMask = SEE_MASK_INVOKEIDLIST;<br> ShellExecuteEx(sei); <br>end;<br><br>还可以参考: http://www.delphibbs.com/delphibbs/dispq.asp?lid=1191781