2018年9月30日
exe所在路径
摘要： ``` procedure TForm1.btn1Click(Sender: TObject); begin //完整路径 E:\UsrSoft\Desktop\FileNameDemo\Project1.exe edt1.Text := paramstr(0); edt1.Text := Application.ExeName; //同上 //文件路径 E:\UsrSoft... 阅读全文
posted @ 2018-09-30 12:30 zzmiot 阅读(628) 评论(0) 推荐(0) 编辑