Как долго работает Windows?

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 файлы.