Узнать время работы Windows
Функция GetTickCount возвращает количество тысячных секунд с начала текущего сеанса Windows. Эта программа показывает, сколько времени уже длится сеанс работы в Windows. (На форму необходимо кинуть компонент Timer находится на вкладке System) procedure TForm1.Timer1Timer(Sender: TObject);var
t: integer;
begin
t := GetTickCount;
Form1.Caption := 'Windows работает уже ' +
IntToStr(t div 60000) + ' мин ' +
IntToStr((t mod 60000) div 1000) + ' сек ' +
IntToStr(t mod 1000) + ' мсек';
end;
