02.07.2011, 19:54
|
|
Always hardcore!
|
|
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
|
|
Во-первых, какую ошибку?
Во-вторых:
Код:
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;
В-третьих, глупо передавать размер в виде строки, когда Integer заведомо занимает 4 байта.
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
|