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