zoukankan      html  css  js  c++  java
  • exe所在路径

    procedure TForm1.btn1Click(Sender: TObject);
    begin
      //完整路径  E:UsrSoftDesktopFileNameDemoProject1.exe
      edt1.Text := paramstr(0);
      edt1.Text := Application.ExeName; //同上
    
      //文件路径  E:UsrSoftDesktopFileNameDemo
      edt2.Text := ExtractFilePath(Application.ExeName);
    
      //文件所在文件夹  E:UsrSoftDesktopFileNameDemo
      edt6.Text := ExtractFileDir(Application.ExeName);
    
      //文件名.扩展名  Project1.exe
      edt3.Text := ExtractFileName(Application.ExeName);
    
      //.扩展名  .exe
      edt4.Text := ExtractFileExt(Application.ExeName);
    
      //去掉扩展名
      edt5.Text := ChangeFileExt(ExtractFileName(Application.ExeName), ''); //  Project1
      edt7.Text := ChangeFileExt(Application.ExeName, ''); //  E:UsrSoftDesktopFileNameDemoProject1
    
      //更改扩展名  E:UsrSoftDesktopFileNameDemoProject1.zip
      edt8.Text := ChangeFileExt(Application.ExeName, '.zip');
    
      //更改文件名  E:UsrSoftDesktopFileNameDemoProject1_20150225154703.exe
      edt9.Text := ChangeFileExt(Application.ExeName, '') +
        '_' + FormatDateTime('yyyymmddhhmmss', Now) +
        ExtractFileExt(Application.ExeName);
    end;
    

  • 相关阅读:
    Navicat for SQLite之外键(05)
    UIButton
    多线程中的API
    UIImageView
    IOS中实现单例
    IOS中的多线程【二】— NSOperation和NSOperationQueue
    IOS中的多线程
    OC中新增的数据类型
    【转】c# DBF数据库导入导出实例
    【经验】学习新知识的经验
  • 原文地址:https://www.cnblogs.com/zzmiot/p/9729053.html
Copyright © 2011-2022 走看看