摘要:
```
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
阅读(677)
评论(0)
推荐(0)