孤独的猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

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;

posted on 2008-09-12 21:25  孤独的猫  阅读(265)  评论(0编辑  收藏  举报