[Miksher]

Здравствуйте, мне нужно написать программу, которая анализировала бы журнал безопасности и составляла БД статистики использования времени компьютера пользователями.
Подскажите, пожалуйста, как извлечь из журнала информацию о времени пребывания пользователя, и вторая проблема - как же составить список пользователей данного компьютера.
По возможности поделитесь литературой, которая мне может помочь.
Заранее благодарен.

[4kusNick]

Я знаю, что можно узнать то, сколько времени работает система, но как точно, не могу сказать (см. Run->systeminfo).

[Decoding]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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

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