На главную

Узнать время работы Windows
Узнать время работы Windows ОГЛАВЛЕНИЕ    HOME  MAIL


Функция GetTickCount возвращает количество тысячных секунд с начала текущего сеанса Windows. Эта программа показывает, сколько времени уже длится сеанс работы в Windows.
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;

главная страницазадать вопрос
email: delphi4all@narod.ru
Hosted by uCoz