Delphi-Help

Главная Статьи Windows Как узнать, сколько времени работает Windows?

Как узнать, сколько времени работает Windows?

Оцените материал
(0 голосов)


Как узнать, сколько времени работает Windows?

Вариант первый

// Timer1.Interval = 1000
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Time, h, m, s: integer;
begin
   Time := GetMessageTime div 1000;
   s := Time mod 60;
   m := ( Time div 60 ) mod 60;
   h := ( Time div 3600 );
   Form1.Caption := Format( '%d:%.2d:%.2d', [h,m,s] );
end;

Вариант второй

// Timer1.Interval = 1000
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Time, h, m, s: integer;
begin
   Time := GetTickCount div 1000;
   s := Time mod 60;
   m := ( Time div 60 ) mod 60;
   h := ( Time div 3600 );
   Form1.Caption := Format( '%d:%.2d:%.2d', [h,m,s] );
end;
Прочитано 4556 раз

Авторизация



Счетчики