Программирование на Delphi и не только Как долго работает Windows? | Программирование на Delphi и не только

Delphi FAQ >> Операционная система

Данная процедура на Delphi записывает в переменные hour, min, sec количество часов, минут и секунд соответственно, прошедших с момента загрузки Windows.

procedure GetWinTime(var hour: Word; var min, sec: Byte);
var   t: longword;

begin


  t := GetTickCount div 1000;
  hour := t div 3600;
  t := t mod 3600;
  min := t div 60;
  sec := t mod 60;
end;

Начинающим дизайнерам можно для тренировки использовать готовые psd файлы.