Неудаётся сделать скриншот экрана и отлавить клавиши

[Вавел из ГМТУ]

Ситуация така: есть программа мониторинга компьютера сотрудника фирмы. Она запускается от имени System (посредством Winlogon).

И вот когда подошла очередь к расширению функционала (щас работает только отслеживание удаления важных файлов) появилась проблемка:
Так как программа запущена средствами Винлогона, то она не может ни сделать скриншот экрана, ни перехватывать клавиши.

Получилось так, что начальник неможет проверить поливает ли менеджер Вася горох на своей ферме Вконтакте или же он оформляет необходимый отчёт для фирмы. Это плохо, это нужно исправить.

У меня появилось две идеи:
1. Какимто образом умудриться заставить программу отлавливать нажатие клавиш и делать скриншоты.
2. Сделать отдельно эти программки и запускать их от имени пользователя когда требуется.

Для первого случая у меня нету мыслей, а для второго я незнаю как запустить приложение от имя пользователя.

Ну и чтобы какнибудь обрисовать картину возможных решений, я приведу процедуру, которая делает скриншот(я её скопировал гдето на форуме):

Procedure ScreenShot(Log: TListBox; Compres: Integer; PathJPG: String);
Vаr
  Bmp : TBitmаp;
  JpgImg: TJPEGImаgе;
  DC : HDC;
Bеgin
Bmp := Tbitmap.Crеаtе;
JpgImg := TJPEGImage.Create;
Bmp.Height := Screen.Height;
Bmp.Width := Screen.Width;
DC := GetDC(0);
Bitblt(Bmp.Cаnvas.Hаndle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
JpgImg.Assign(bmp); //в JPG грузим Битмап
JpgImg.CompressionQuality := Compres; //устанавливаем компрессию (качество) (1-100)
JpgImg.SavеToFile(PathJPG); //сохраняем в формате JPG
//Очищаем память.
JpgImg.Free;
Bmp.Frее;
End;

add: эта процедура сохраняет белую картинку с разрешением моего монитора. Тобишь судя повсему скриншот делается, но не того чего надо...

[uberchel]

А чего там от имени админа, просто прога эта же у работника на компе будет и ярлык к ней у директора вот он её запустит и посмотрит че там работник его делал, так же и с клавай.

А процедура работает хорошо, и Листбокс от туда надо убрать !

[Вавел из ГМТУ]

Процедура работает хорошо если запустить её как все нормальные приложения. Ну а если эту процедуру запустит сервис, то никакго скриншота неполучиться..
Мой сервис просто невидит рабочий стол и при запуске моим сервисом приложений никаких форм непоявляется. Тоесть он ничего неотрисовывает....

С листбоксом верно. Это я наверное уже на автомате дописывал ко всем процедурам, чтоб они знали куда лог записывать

[uberchel]

Ну тут только одно могу сказать, или запускай как обычно через реестр, либо перепиши сервис!

[Вавел из ГМТУ]

В каком смысле перписать сервис? Я перепишу и получиться тоже самое

Мнеб хотяб научиться запускать приложение из под сервиса так, чтобы оно "видело" рабочий стол.

Перепотрошил гугль и понял что это можно сделать както через создание потоков. Но ничего конкретного найти неполучилось...