procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var sj:string;
begin
sj:=formatdatetime('yyyy"年"m"月"d"日"'+'hh"时"mm"分"ss"秒"'+'ms',Now);
ClickList.SaveToFile(ChangeFileExt(sj, '.Txt'));{save the list}//只是默认在执行文件的目录下.end;
var sj:string;
begin
sj:=formatdatetime('yyyy"年"m"月"d"日"'+'hh"时"mm"分"ss"秒"'+'ms',Now);
ClickList.SaveToFile(ChangeFileExt(sj, '.Txt'));{save the list}//只是默认在执行文件的目录下.end;
楼上满分