aktuelle Uhrzeit + 1

[axelf98]

Das ist eigentlich ganz einfach:

Delphi-Quellcode:

var A,B,C,D : word;
begin

decodetime(time,A,B,C,D);   // A: Std  B: Min  C: Sek   D:Msek
label1.caption := Timetostr(encodetime(A+1,B,C,D));  // A + 1
end;