デスクトップをキャプチャするサンプルです。
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
HANDLE hWndAll;
HANDLE hWndDC;
Image1->Width = Screen->Width;
Image1->Height = Screen->Height;
hWndAll = GetDesktopWindow();
hWndDC = GetDC(hWndAll);
BitBlt(Image1->Canvas->Handle, 0, 0, Screen->Width, Screen->Height, hWndDC, 0, 0, SRCCOPY);
ReleaseDC(hWndAll, hWndDC);
}
//---------------------------------------------------------------------------
DownLoad bcbtips069.lzh 4KB(BCB5)