摘要: uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender: TObject); var ss,s: string; begin //先提取一个文件名的字符串 ss := Application.ExeName; ShowMessage(ss) 阅读全文
posted @ 2017-01-20 15:15 海蓝7 阅读(618) 评论(0) 推荐(0) 编辑