ПШвИ - ПЕРВЫЙ ШАГ в ИНТЕРНЕТ

МБОУ БСОШ №1 

  • Увеличить размер шрифта
  • Размер шрифта по умолчанию
  • Уменьшить размер шрифта
ПУБЛИКАЦИИ / ПРОГРАММИРОВАНИЕ / Узнать время запуска ОС и как долго работает ОС

Узнать время запуска ОС и как долго работает ОС

Печать

Узнать время запуска ОС и как долго работает ОС

Функция GetTickCount получает количество миллисекунд, прошедших с момента старта Windows

 

//Узнать время запуска ОС и как долго работает ОС
procedure
TForm1.Button1Click(Sender: TObject);  
var
  ndays: double;  
  ticks: LongInt;  
  btime: TDateTime;  
begin  
  {Функция GetTickCount получает количество миллисекунд, прошедших с момента старта Windows}
  ticks := GetTickCount;  {Чтобы получить дни, необходимо разделить на количество  миллисекунд в дне, 24*60*60*1000=86400000}
ndays := ticks/86400000;  {теперь вычитаем из текущей даты полученное количество  дней работы Windows}
 bTime := now-ndays;  {показываем диалоговое окно с сообщением}
  ShowMessage(  FormatDateTime('"ОС запущена в " dddd, mmmm d, yyyy, '
+ '"в" hh:nn:ss AM/PM', bTime) + #10#13
+ 'Работает ' +  IntToStr(Trunc(nDays)) + ' дней,'
+  FormatDateTime(' h "часов," n "минут," s "секунд"',ndays)
  );
end;
 

Добавить комментарий


Защитный код
Обновить


Top.Mail.Ru Яндекс.Метрика
iikt  TIiIKT  ikt24.org.ru  gerb gerb