提取文件的属性对话框(显示属性页)

var

    sei:TSHELLEXECUTEINFO;

begin

    ZeroMemory(@sei,sizeof(sei))

    sei.cbSize :=Sizeof(sei);

    sei.lpFile :=''C:\1.txt';

    sei.lpVerb :='properties';

    sei.fMask :=SEE_MASK_INVOKEIDLIST;

    ShellExecuteEx(@sei);

end;