|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
26.03.2007, 21:13 | #1 |
Xspectrum_
Пользователь
Регистрация: 26.03.2007
Сообщений: 11
|
помогите оптимизировать процедуру
Процедура вычисляет сколько времени работает ПК.
Это время узнаю функцией GetCurrentTime. Она выдаёт время в милисекундах. Потом путём немудрёных комбинаций (см. Листинг ниже) преобразовываю это дело в читабельный вид (DD:HH:MM:SS). У меня вопрос: знаю что это можна сделать проще... но как? ответа толком не могу найти. Если есть минутка подскажите как (чтоб в итоге результат вывода на экран не поменялся) ЗЫ. И если можна ещё: как прикрутить его к таймеру чтоб это время тикало? Спасибо Код:
Последний раз редактировалось _XspeC_; 26.03.2007 в 21:25. |
26.03.2007, 21:31 | #2 |
Редкий тунеядец
Форумчанин
Регистрация: 29.10.2006
Сообщений: 595
|
Не знаю сможет ли тебе это помочь, но в принципе, совсем необязательно считать сколько времени пашет система, намного проще и точней узнать время работы системы выполнив в командной строке: systeminfo! А как это использовать думай сам, а может кто подскажет!
|
26.03.2007, 22:06 | #3 |
Xspectrum_
Пользователь
Регистрация: 26.03.2007
Сообщений: 11
|
execom
пасип за инфу конечно. но мне нужно это осуществить в родных делфях |
26.03.2007, 22:50 | #4 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
|
|
27.03.2007, 10:18 | #5 |
Xspectrum_
Пользователь
Регистрация: 26.03.2007
Сообщений: 11
|
Не ну я знаю что можна сделать вот так:
Код:
А мне нужно: 0 дней 12 часов 05 минут 06 секунд в этом то вся и загвоздка :\ |
27.03.2007, 12:27 | #6 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
Label1.Caption:=FormatDateTime('HH часов MM минут SS секунд',GetCurrentTime); |
|
27.03.2007, 19:58 | #7 |
Xspectrum_
Пользователь
Регистрация: 26.03.2007
Сообщений: 11
|
спасибо... нужный вид получился но с правильностью времени проблема.. помоему FormatDateTime и GetCurrentTime не очень то совместимы
|
28.03.2007, 14:57 | #8 | ||||
Пользователь
Регистрация: 03.02.2007
Сообщений: 20
|
Если нужно выводить время запуска и время окончания работы можно так:
Цитата:
Если нужно получить именно время и дату, причём желательно год, месяц и тд отдельно, то можно воспользоватся станлартным типом TSystemTime. Цитата:
Цитата:
systime - переменная типа TSystemTime Типа например так: Цитата:
Последний раз редактировалось londoner; 28.03.2007 в 15:02. |
||||
28.03.2007, 17:58 | #9 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
...
только вместо
Код:
Format('%d '%d '%d '%d '%d '%d', [wDay, wMonth, wYear, wHour, wMinute, wSecond]);
Берегите друг друга!
|
30.03.2007, 16:00 | #10 | |
Xspectrum_
Пользователь
Регистрация: 26.03.2007
Сообщений: 11
|
спасибо конечно всем за ответы, но:
Цитата:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите оптимизировать процедуру | Cold Went | Компоненты Delphi | 4 | 29.04.2008 15:11 |
Помогите оптимизировать! | Altera | Общие вопросы Delphi | 6 | 25.03.2008 20:09 |
Помогите оптимизировать HTML код после Publisher | Гербера | HTML и CSS | 16 | 03.12.2007 11:46 |
Помогите оптимизировать сайт | Nadejda | HTML и CSS | 4 | 07.01.2007 21:04 |