以下方法参考一下：<br>uses ..., ShellApi;<br><br>procedure PropertiesDialog(filename:String);<br>var <br> sei: TShellExecuteInfo;<br>begin <br> FillChar(sei, SizeOf(sei), 0);<br> sei.cbSize := SizeOf(sei);<br> sei.lpFile := PChar(filename);<br> sei.lpVerb := 'properties';<br> sei.fMask := SEE_MASK_INVOKEIDLIST; <br> ShellExecuteEx(@sei);<br>end; <br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> if Opendialog1.Execute then<br> begin<br> PropertiesDialog(Opendialog1.FileName); <br> end;<br>end;
