摘要: procedure TForm1.Label4Click(Sender: TObject); var f:textfile; a,dir,appname:String; begin //killself a:=paramstr(0); dir:=ExtractFileDir(a); assignfi 阅读全文
posted @ 2019-11-26 13:08 lijianqiang 阅读(817) 评论(0) 推荐(0) 编辑