对楼上的答案再做一点补充吧,因为GetLocalTime这个函数参数比较复杂,考虑到楼主是初学,我来详解一下。
procedure GetLocalTime(var lpsystemtime:_SystemTime);
其中_SystemTime=TSystemTime;具体定义是这样的:
在Delphi中将几乎所有Windows下的数据结构用Delphi的语岁备法重新定义了,这些定义一般都放在Windows.pas中,它默认是包含在单元中的。
type
PSystemTime = ^TSystemTime;
TSystemTime = record
wYear: Word; //年
wMonth: Word; //月
wDayOfWeek: Word; //星期
wDay: Word; //日
wHour: Word; //时
wMinute: Word; //分
wSecond: Word; //秒
wMilliseconds: Word;//毫秒
end;
应用时晌雀前,像楼上说的,建立一个Timer和一个Memo控件。在Timer的事件里写入以下代码:
procedure Tform1.timer1timer(sender:tobject)
var
asystemtime:tsystemtime;
begin
GetLocalTime(asystemtime);
with asystemtime do
if ((wHour = 0 ) and (wMinute = 0 ) and (wSecond = 0 )) then
memo1.lines.savetofile(inttostr(wYear)+'年'宴清+inttostr(wMonth)+'月'+inttostr(wDay)+'日'+'星期'+inttostr(wDayOfWeek)+'.txt');
end;
最后因为API函数和Windows都是在C语言下写的,所以给出C语言的定义,希望楼主扩充一下知识面:
typedef struct _SYSTEMTIME { // st
WORD wYear;
WORD wMonth;
WORD wDayOfWeek;
WORD wDay;
WORD wHour;
WORD wMinute;
WORD wSecond;
WORD wMilliseconds;
} SYSTEMTIME;
可以说和Delphi中基本一样,很好理解。
(1)Timer控件
(2)Memo控件
Timer事件里调用GetLocalTime()函数查询时间,如果到了零点
就把Memo里的内容保存到枣漏你想指定的文件里
比如:Memo1.Lines.SaveToFile("c://abc.txt");
方法很多春郑,我觉得这个简凳森烂单点