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)  编辑  收藏  举报