Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
function TFormMain.UpTime: String;
const
ticksperday: Integer = 1000 * 60 * 60 * 24;
ticksperhour: Integer = 1000 * 60 * 60;
ticksperminute: Integer = 1000 * 60;
tickspersecond: Integer = 1000;
var
t: Longword;
d,h,m,s: Integer;
begin
t:= GetTickCount;
d:= t div ticksperday;
Dec(t,d * ticksperday);
h:= t div ticksperhour;
Dec(t, h * ticksperhour);
m:= t div ticksperminute;
Dec(t, m * ticksperminute);
s:= t div tickspersecond;
Result:= 'Uptime: ' + IntToStr(d) + ' Days ' + IntToStr(h) + ' Hours ' + IntToStr(m) + ' Minutes '+IntToStr(s) + ' Seconds';
end;
procedure TFormMain.ButtonErrechnenClick(Sender: TObject);
var
s: String;
begin
s:= UpTime;
Edit1.Text:= s;
end;