exe所在路径
2024-09-11 23:06:15
procedure TForm1.btn1Click(Sender: TObject);
begin
//完整路径 E:\UsrSoft\Desktop\FileNameDemo\Project1.exe
edt1.Text := paramstr(0);
edt1.Text := Application.ExeName; //同上
//文件路径 E:\UsrSoft\Desktop\FileNameDemo\
edt2.Text := ExtractFilePath(Application.ExeName);
//文件所在文件夹 E:\UsrSoft\Desktop\FileNameDemo
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:\UsrSoft\Desktop\FileNameDemo\Project1
//更改扩展名 E:\UsrSoft\Desktop\FileNameDemo\Project1.zip
edt8.Text := ChangeFileExt(Application.ExeName, '.zip');
//更改文件名 E:\UsrSoft\Desktop\FileNameDemo\Project1_20150225154703.exe
edt9.Text := ChangeFileExt(Application.ExeName, '') +
'_' + FormatDateTime('yyyymmddhhmmss', Now) +
ExtractFileExt(Application.ExeName);
end;
最新文章
- 在ASP.NET Core Web API上使用Swagger提供API文档
- ZoomEye 钟馗之眼 搜索工具 基于API
- freeradius + oracle 无限认证
- 关于git(分布式版本控制系统)的一些操作和命令
- iOS 跳转到系统的设置界面-b
- js图片实现延迟加载
- mac 下 sublime text 运行c++/c 不能使用scanf/cin
- 使用ES6进行开发的思考
- Android开源中国客户端学习 (自定义View)左右滑动控件ScrollLayout
- 删除Lb重复的数,用La输出(顺序表)
- STL front() ,back()和begin(),end()区别
- 写一些脚本的心得总结系列第4篇-------从数据库同步到redis
- PE文件格式详解,第一讲,DOS头文件格式
- Java经典编程题50道之二十七
- php程序员的成长之路
- 【Python】 Selenium 模拟浏览器 寻路
- Linux(CentOS 7)安装测试svn服务
- SQL Server 2014备份维护计划
- CSS查漏补缺【未完】
- Maven知识点积累二