请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

版权申明
查看: 4742|回复: 0

用代码打开文件或者文件夹的属性

[复制链接]
  • TA的每日心情
    奋斗
    2020-1-24 21:17
  • 签到天数: 9 天

    [LV.3]偶尔看看II

    发表于 2010-1-16 11:31:30 | 显示全部楼层 |阅读模式
    转自:http://www.solokey.cn/
    var
      sei: SHELLEXECUTEINFO;
      FileName: string;
    begin
      FileName := 'C:\a.a';
      with sei do begin
        cbSize := SizeOf(sei);
        fMask :=  SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or SEE_MASK_FLAG_NO_UI ;
        Wnd := Self.Handle;
        lpVerb := 'properties';
        lpFile := PChar(FileName);
        lpParameters := nil;
        lpDirectory := nil;
        nShow := 0;
        hInstApp := 0;
        lpIDList := nil;
      end;
      ShellExecuteEx(@sei);
    end;
    回复

    使用道具 举报

    QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

    GMT+8, 2022-5-16 22:33 , Processed in 0.035867 second(s), 24 queries .

    Powered by Discuz! F1.0 Build 20160930

    © 2001-2022 Comsenz Inc. & Discuz! Fans

    快速回复 返回顶部 返回列表