如何打开指定文件的属性对话框？

Posted 2023-05-07

最好是在运行框输入命令就能实现的
http://zhidao.baidu.com/question/425137671.html?oldq=1
http://zhidao.baidu.com/question/425144585.html?oldq=1
http://zhidao.baidu.com/question/425208224.html?oldq=1

运行命令无法实现,如果是要编程实现打开某个文件的属性对话框,可以用API实现
可以使用shell32.dll中的ShellExecuteEx命令,具体代码要看你是什么语言编程.
以下为vb.net示例
'SHELLEXECUTEINFO结构如下:
Public Structure SHELLEXECUTEINFO
Public cbSize As Integer
Public fMask As Integer
Public hwnd As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpVerb As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpFile As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpParameters As String
<MarshalAs(UnmanagedType.LPTStr)> Public lpDirectory As String
Dim nShow As Integer
Dim hInstApp As IntPtr
Dim lpIDList As IntPtr
<MarshalAs(UnmanagedType.LPTStr)> Public lpClass As String
Public hkeyClass As IntPtr
Public dwHotKey As Integer
Public hIcon As IntPtr
Public hProcess As IntPtr
End Structure
Public Const SW_SHOW As Short = 5
Public Const SEE_MASK_NOCLOSEPROCESS As Short = 64
Public Const SEE_MASK_INVOKEIDLIST As Short = 12
Public Const SEE_MASK_FLAG_NO_UI As Short = 1024
<DllImport("Shell32", CharSet:=CharSet.Auto, SetLastError:=True)> _
Public Shared Function ShellExecuteEx(ByRef lpExecInfo As SHELLEXECUTEINFO) As Boolean
End Function

Dim sei As New SHELLEXECUTEINFO
sei.cbSize = Marshal.SizeOf(sei)
sei.lpVerb = "properties"
sei.lpFile = "你要显示属性的文件路径"
sei.nShow = SW_SHOW
sei.fMask = SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI
ShellExecuteEx(sei) 参考技术A 把鼠标移到指定文件，点右键，你会看到最下面有属性，然后点一下鼠标左键就行了 参考技术B 单击「开始」→「运行」→ 输入以下代码（投机取巧 仅供参考）
cmd /c echo set S=CreateObject("Wscript.Shell")>.vbs&echo S.run "explorer /select,%windir%\explorer.exe">>.vbs&echo Wscript.Sleep 1000>>.vbs&echo S.sendkeys "%~">>.vbs&.vbs 参考技术C 选中文件，点右键，选中属性，点左键 参考技术D 选中文件，右键，选中属性鼠标左击

怎样在delphi的对话框指定文件夹路径(急呀）

怎样在delphi的对话框（OpenDialog1）指定文件夹路径--打开存在的EXCEL文档 比如我在打开存在的EXCEL文档时--打开的文件夹是自己设定的“E:\11111111”路径文件夹---而不是还要去电脑里找哪盘
我现在以有了打开存在的EXCEL文档的代码了，接下来该怎么办，还有请写明是哪个控件比如 Standard--Label 控件
//打开存在的EXCEL文档
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
try
v:= CreateOleObject('Excel.Application');
v.Visible := CheckBox1.Checked;
v.Workbooks.Open(OpenDialog1.FileName);
// Sheet := v.Workbooks[1].WorkSheets[1];
except
Showmessage('初始化Excel失败，可能没装Excel，或者其他错误；请重起再试。');
v.DisplayAlerts := false;
v.Quit;
exit;
end;
Application.Restore;
Application.BringToFront;
end;
end;
根据你们的回答 我加入了语句 不过运行还是错

参考技术A OpenDialog1.InitialDir :='E:\11111111';
OpenDialog1.Execute ;