🚀 go-pugleaf

Here's a old post on how to do this:

void __fastcall CaptureScreen(Graphics::TBitmap *Bitmap)
{
    HDC HScreenDC = GetDC(0);
    Bitmap->Handle = CreateCompatibleBitmap(HScreenDC,
                                            Screen->Width,
                                            Screen->Height);

    int result = GetDeviceCaps(HScreenDC, RASTERCAPS);
    if (result & RC_PALETTE)
    {
        int palette_size = GetDeviceCaps(HScreenDC, SIZEPALETTE);
        if (palette_size == 256)
        {
            int size = sizeof(LOGPALETTE) + 256 * sizeof(PALETTEENTRY);
            LPLOGPALETTE lplogpal =
                (LPLOGPALETTE) new unsigned char[size];
            lplogpal->palVersion = 0x300;
            lplogpal->palNumEntries = 256;
            GetSystemPaletteEntries(HScreenDC, 0, 256,
                                    lplogpal->palPalEntry);
            Bitmap->Palette = CreatePalette(lplogpal);
            delete [] lplogpal;
        }
    }

    BitBlt(Bitmap->Canvas->Handle, 0, 0, Bitmap->Width,
           Bitmap->Height, HScreenDC, 0, 0,
           SRCCOPY);

    ReleaseDC(0, HScreenDC);
}

void __fastcall TForm1::CaptureButtonClick(TObject *Sender)
{
    CaptureScreen(Image1->Picture->Bitmap);
}


/ vERUs