хочу сделать программу чтобы она скринила экран, но при выполнении операции он скринит и в итоге получается белый скриншот... Как понял вся проблема в GetDC. Вот исходный код: var get: HDC; begin Form1.Visible:=False; Sleep(15); dir:=Graphics.TBitmap.Create; dir.Height:=Screen.Height; dir.Width:=Screen.Width; get:=GetDC(0); BitBlt(dir.Canvas.Handle, Screen.Height, get, 0, 0, Screen.Width, 0, 0, SRCCOPY); Form1.Visible:=True; image1:=TImage.Create(nil); dir.IgnorePalette:=True; Image1.Picture.Assign(dir); dir.SaveToFile(Form2.Edit1.Text); end;
Знаю верный ответ Найти ответ на вопрос
Ключевые слова: GetDC delphi, delphi GETdc, GetDC в delphi,
Вы передаете GetDC вместо hwnd - ноль, поэтому и получаете белый экран.
Ответить