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