Мне необходимо делать скриншот Winlogon-десктопа.
На форме расположен таймер (1 сек). Его обработчик:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 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;
|
Запуск экзешника производится под пользователем SYSTEM.
В других версиях Windows все скрины получатся нормальными, а вот в Server 2012R2 если заблокировать комп (в это время скрины нормальные) и нажать на кнопку "Сменить пользователя" на экране блокировки, все дальшейшие скрины получаются пыстыми (полностью белая заливка). Может кто подскажет в какую сторону копать?
13.08.2016, 12:20
Скриншот Winlogon-десктопа в Server 2012R2
Линейный вид
