Witam !
Rano nie miałem dostępu do internetu więc musiałem skrobnąć funkcję samemu (leń :P ) i tak się zastanawiam czy jest to najszybsze możliwe rozwiązanie ?
function milisekundyNaCzas(ms : integer) : string;
var
//zmienne wprowadzone by kod był bardziej przejrzysty
h, m, s: integer;
begin
h:=ms div 3600000;
m:=(ms mod 3600000) div 60000;
s:=((ms mod 3600000) mod 60000) div 1000;
Result := Format('%s:%s:%s', [FormatFloat('00', h), FormatFloat('00', m), FormatFloat('00', s)]);
end;
Przykład zastosowania:
showmessage('Komputer działa od' + milisekundyNaCzas(GetTickCount()));
Pozdrawiam !