![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте, мне нужно написать программу, которая анализировала бы журнал безопасности и составляла БД статистики использования времени компьютера пользователями.
Подскажите, пожалуйста, как извлечь из журнала информацию о времени пребывания пользователя, и вторая проблема - как же составить список пользователей данного компьютера. По возможности поделитесь литературой, которая мне может помочь. Заранее благодарен. |
#2
|
||||
|
||||
![]() Я знаю, что можно узнать то, сколько времени работает система, но как точно, не могу сказать (см. Run->systeminfo).
THE CRACKER IS OUT THERE |
#3
|
||||
|
||||
![]() 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 |