摘要: procedure TForm1.Button1Click(Sender: TObject);var ts: TStrings; SysPath: string;begin ts := TstringList.Create; SysPath := ExtractFilePath(Applicatio 阅读全文
posted @ 2016-04-11 14:18 南国之恋 阅读(173) 评论(0) 推荐(0) 编辑