|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Скриншот Winlogon-десктопа в Server 2012R2
Мне необходимо делать скриншот Winlogon-десктопа.
На форме расположен таймер (1 сек). Его обработчик: Код:
procedure TForm18.Timer1Timer(Sender: TObject); var bmp: TBitmap; DCDesk: HDC; FileName: String; begin bmp := TBitmap.Create; bmp.Height := Screen.Height; bmp.Width := Screen.Width; DCDesk := GetWindowDC(GetDesktopWindow); BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DCDesk, 0, 0, SRCCOPY); FileName := 'Screenshot_' + FormatDateTime('mm-dd-yyyy-hhnnss', Now()); if not DirectoryExists(ExtractFilePath(Application.ExeName) + 'Screenshots') then CreateDir(ExtractFilePath(Application.ExeName) + 'Screenshots'); bmp.SaveToFile(Format(ExtractFilePath(Application.ExeName) + 'Screenshots\%s.bmp', [FileName])); ReleaseDC(GetDesktopWindow, DCDesk); bmp.Free; end; В других версиях Windows все скрины получатся нормальными, а вот в Server 2012R2 если заблокировать комп (в это время скрины нормальные) и нажать на кнопку "Сменить пользователя" на экране блокировки, все дальшейшие скрины получаются пыстыми (полностью белая заливка). Может кто подскажет в какую сторону копать? Последний раз редактировалось xteam777, 13.08.2016 в 12:23. |
#2
|
||||
|
||||
Ты софтину под каким пользователем запускаешь?
Попробуй запускать под системной учеткой. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Я же писал что запускаю под SYSTEM
|