Добрый день.
Как сохранить экран в файл?

Заранее благодарен.

Под Windows Me всё работает, но под Windows 2000 нет.
CreateCompatibleDC возвращает 0.

Да, спасибо, уже тоже об этом подумал.
Всё заработало.

Пытаюсь теперь сохранить изображение в файл.
Пишу.

Long ll_DC, ll_DestDC,ll_BMP,l1
Uint i1
st_bitmapinfo pbinf

ll_DC = GetDC(0)
ll_DestDC = CreateCompatibleDC(ll_DC)
ll_BMP = CreateCompatibleBitmap(ll_DC, li_W, li_H )
-- Всё в порядке
-- Далее пытаюсь получить информацию о картинке
SetNull(l1)
i1 = GetDIBits(ll_DC, ll_BMP,0,0, l1, pbinf, 0)

i1 = 0 - т.е. структура не заполнилась. В чём ошибка?

...
DeleteDC
ReleaseDC


Function Int GetDIBits(ULong hdc, ULong hbmp,Uint uStartScan, Uint cScanLines, Long lpvBits, ref ST_BITMAPINFO lpbi, UINT uUsage )Library "gdi32.dll"

Windows 2000, Pb 9.0.1 Build 6533

Нет, не помогает.

Поменять нужно не только в GetDc, но и где используем его.

Function Boolean BitBlt( Ulong hDestDC, int ix, int iy, int iw, int ih, Ulong hSourceDC, int idx, int idy, long oper ) Library "gdi32.dll"
Function Ulong SelectObject(Ulong Hdc, Ulong Hobj) Library"gdi32.dll"

Наконец добрался до сохранения файла.

Пишу далее

lpBits = GlobalAlloc(0,pbinf.bmiheader.biSizeImage)
l1 = GetDIBits(ll_DestDC, ll_BMP,0,li_H,lpBits, pbinf, 0)
//Create file
pszFile = '1.bmp'
SetNull(s33)
SetNull(iii1)
// Создадим файл
hf = CreateFileA(pszFile, 2147483648 + 1073741824, 0,s33, 2, 128, iii1);
// Заголовок файла st_BITMAPFILEHEADER
hdr.bfType = 19778
hdr.bfSize = 14 + pbinf.bmiheader.biSize + pbinf.bmiheader.biClrUsed * 4 + pbinf.bmiheader.biSizeImage
hdr.bfReserved1 = 0;
hdr.bfReserved2 = 0;
hdr.bfOffBits = 14 + pbinf.bmiheader.biSize + pbinf.bmiheader.biClrUsed * 4
//
SetNull(s33)
b2 = WriteFile(hf, hdr,14, l32,s33)
// Заголовок файла st_BITMAPINFOHEADER
pbih = pbinf.bmiheader
b2 = WriteFile(hf, pbih,40, l32,s33)
//
dwTotal = pbih.biSizeImage
cb = pbih.biSizeImage;
hp = lpBits;
do while (cb > 32765) //32765
b2 = WriteFile(hf,hp, 32765,l32,s33)
cb = cb - 32765;
hp = hp + 32765;
loop
b2 = WriteFile(hf, hp, cb,l32,s33)

//Закроем файл и освободим память
CloseHandle(hf)
GlobalFree(lpBits)

В файле только шум.
Понимаю, что дело с записью данных, конкретно, наверное, с указателем на память с картинкой. Т.к. при просмотре bmp файла вижу, что там вовсе не то - иногда попадает даже код программы.

Никак не могу разобраться.
Кто знает - помогите, пожалуйста.