Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


Как долго работает 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 файлы.