吧主啊

我会啊

呵呵 又是小梁

小梁 加时间的不是随便加的 要写编程的

你来CE吧 我来上传图片 教你 这吧我等级太小 上不了图片

又沉了吗？？？？？ 没人会、？

噢噢

加到全局变量：FDate,Ftime,q,i,j,k,F,M,S,HM: Integer;
累积运行时间代码如下：
if M = 59 then
begin
F:=F+1;
if F = 59 then
begin
S:=S+1;
F:=0;
end;
M:=0;
end;
M:=M+1;
Label4.Caption:='XX提醒你CE已运行 '+inttostr(S)+'小时'+inttostr(F)+'分'+inttostr(M)+'秒'
年月日时间代码如下：
ss:=FormatDateTime(' yyyy 年 MM 月 dd 日 hh : nn : ss ',now);
MainForm.Caption:='XX提示当前时间：'+ss;