[Decoding]

1) Время работы системы: GetTickCount или GetMessageTime - возвращают время работы ОС в милисекундах.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Time, h, m, s: integer;
begin
   Time := GetTickCount div 1000;
   // или Time := GetMessageTime div 1000;
   s := Time mod 60;
   m := ( Time div 60 ) mod 60;
   h := ( Time div 3600 );
   Form1.Caption := Format( '%d:%.2d:%.2d', [h,m,s] );
end;

2) Список пользователей (разбирайся с NetApi32.dll)
http://decoding.narod.ru/faq/windows...ws002.html#006