|
#8
|
||||
|
||||
Во-первых, какую ошибку?
Во-вторых: Код:
var dw: HWND; dc: HDC; bmp: TBitMap; begin bmp := TBitmap.Create; bmp .Width := Screen.Width; bmp .Height := Screen.Height; dw := GetDesktopWindow; dc := GetDC(dw); BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, dc, 0, 0, SRCCOPY); ReleaseDC(dw, dc); // ... end; Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |