помогите оптимизировать процедуру

[_XspeC_]

Процедура вычисляет сколько времени работает ПК.
Это время узнаю функцией GetCurrentTime. Она выдаёт время в милисекундах. Потом путём немудрёных комбинаций (см. Листинг ниже) преобразовываю это дело в читабельный вид (DD:HH:MM:SS).
У меня вопрос:
знаю что это можна сделать проще... но как? ответа толком не могу найти.
Если есть минутка подскажите как (чтоб в итоге результат вывода на экран не поменялся)

ЗЫ. И если можна ещё: как прикрутить его к таймеру чтоб это время тикало?

Спасибо

procedure TForm1.Button1Click(Sender: TObject);
var
time: real;
days, hours, minutes, seconds: integer;
begin
time := GetCurrentTime /1000;
days := Trunc(time/86400);
hours := Trunc((time - days*86400)/3600);
minutes := Trunc((time - days*86400 - hours*3600)/60);
seconds := Trunc(time - days*86400 - hours*3600 - minutes*60);
StaticText1.Caption := FloatToStr(days) + ' дней ' + FloatToStr(hours) + ' часов ' + FloatToStr(minutes) + ' минут ' + FloatToStr(seconds) + ' секунд';
StaticText2.Caption := FloatToStr(Trunc(time)) + ' секунд';
end;

[execom]

Не знаю сможет ли тебе это помочь, но в принципе, совсем необязательно считать сколько времени пашет система, намного проще и точней узнать время работы системы выполнив в командной строке: systeminfo! А как это использовать думай сам, а может кто подскажет!

[_XspeC_]

execom
пасип за инфу конечно. но мне нужно это осуществить в родных делфях

[mihali4]

знаю что это можна сделать проще... но как? ответа толком не могу найти.

Странно. Тут и искать ничего не надо. По-моему, функция FORMAT должна быть всем известна...

[_XspeC_]

Не ну я знаю что можна сделать вот так:

 
Label1.Caption:=FormatDateTime('HH:MM:SS',GetCurrentTime);

Но в итоге получится на отображении чтото типа: 12:05:06
А мне нужно: 0 дней 12 часов 05 минут 06 секунд

в этом то вся и загвоздка :\

[mihali4]

Сообщение от _XspeC_

Не ну я знаю что можна сделать вот так:

 
Label1.Caption:=FormatDateTime('HH:MM:SS',GetCurrentTime);

Но в итоге получится на отображении чтото типа: 12:05:06
А мне нужно: 0 дней 12 часов 05 минут 06 секунд

в этом то вся и загвоздка :\

А так слабо было попробовать?
Label1.Caption:=FormatDateTime('HH часов MM минут SS секунд',GetCurrentTime);

[_XspeC_]

спасибо... нужный вид получился но с правильностью времени проблема.. помоему FormatDateTime и GetCurrentTime не очень то совместимы

[londoner]

Если нужно выводить время запуска и время окончания работы можно так:

Label1.Caption:=DateTimeToStr(Now);

выводим в label строку с датой и временем с точностью до секунд.

Если нужно получить именно время и дату, причём желательно год, месяц и тд отдельно, то можно воспользоватся станлартным типом TSystemTime.

TSystemTime = record
wYear,wMonth,wDayOfWeek,wDay,wHour, wMinute,wSecond,wMilliseconds:Word

end;

Получить его можно так:

DateTimeToSystemTime(Now,systime);

Now - функция, выдающая время и дату в формате TDateTime;
systime - переменная типа TSystemTime

Типа например так:

procedure TForm1.Timer1Timer(Sender: TObject);
var Time : TSystemTime;
begin
DateTimeToSystemTime(Now,Time);
with Time do
Label1.Caption:=inttostr(wDay)+' '+inttostr(wMonth)+' '+inttostr(wYear)+' '+inttostr(wHour)+' '+inttostr(wMinute)+' '+inttostr(wSecond);
end;

[Virtson]

только вместо

inttostr(wDay)+' '+inttostr(wMonth)+' '+inttostr(wYear)+' '+inttostr(wHour)+' '+inttostr(wMinute)+' '+inttostr(wSecond);
end;

я бы посоветовал
Format('%d '%d '%d '%d '%d '%d', [wDay, wMonth, wYear, wHour, wMinute, wSecond]);

[_XspeC_]

спасибо конечно всем за ответы, но:

Процедура вычисляет сколько времени работает ПК

а не который сейчас час. С выводом текущего времени я пока что успешно справляюсь