Вывести часа в caption

[Ntlegend]

Уважаемый Kotofff, время с милисекунд легко преобразовать в секунды минуты и часы.

Функция GetTickCount считывает вpемя, пpошедшее с момента запуска системы.

Функция Now возвращает текущую дату и время для местной временной зоны.

таким образом если запустить приложение в 9 вечера (21:00:00 что в TTime равно 0,875) и потом проверить время работы приложения в 9 утра (9:00:00 что в TTime равно 0,375) то покажет все верно (12:00:00 что в TTime равно 0,5).. но если оставить прогрумму включеной несколько суток то на следующий день в 9 утра она снова покажет 12 часов работы.. тоесть тут уже нада проверять не тока время а и дату запуска..
а если использовать GetTickCount то у нас значение будет постоянно увеличиваться..

ниже пример получения информации о том сколько работает компьютер

var t:cardinal;
begin
t:=GetTickCount;
(*
t mod 1000 = милисекунды
(t div 1000) mod 60  = секунды
(t div (60*1000)) mod 60  = минуты
(t div (3600*1000)) mod 60  = часы
t div (24*3600*1000) = сутки
*)
Memo1.Text:= 'сутки - '+IntToStr(t div (24*3600*1000))+#13#10+
             'часы - '+IntToStr((t div (3600*1000)) mod 24)+#13#10+
             'минуты - '+IntToStr((t div (60*1000)) mod 60)+#13#10+
             'секунды - '+IntToStr((t div 1000) mod 60)+#13#10+
             'милисекунды - '+IntToStr(t mod 1000);
end;