Как Узнать, Сколько Времени Работает Windows?

[Sascha]

Как узнать, сколько времени работает 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;