unsigned DataHandle;
HPALETTE APalette;
Word Format;
Graphics::TBitmap *Bitmap=new Graphics::TBitmap;
HDC DC=GetDC(0);
try{
Bitmap->Height=Screen->Height;
Bitmap->Width=Screen->Width;
BitBlt(Bitmap->Canvas->Handle , 0, 0, Screen->Width,
Screen->Height,DC, 0, 0, SRCCOPY);
//Èçîáðàæåíèå ýêðàíà òåïåðü â Bitmap, çàïèøåì åãî â áyôåp îáìåíà
Bitmap->SaveToClipboardFormat(Format,DataHandle,APalette);
Clipboard()->SetAsHandle(Format,DataHandle);
}
__finally
{
delete Bitmap;
ReleaseDC(0,DC);
}
Проблема с Bitmap
Нашел код создания скриншота, но он сохраняет в буфер, а мне нужно
в файл, попробывал найти регение сам неполучается.
Вот код:
Подскажите пожалуйста как мне его в файл сохранить...
в файл, попробывал найти регение сам неполучается.
Вот код:
Код:
Подскажите пожалуйста как мне его в файл сохранить...
Код:
TImage *Img = new TImage(this);
HDC DC = GetDC(0);
Img->Height = Screen->Height;
Img->Width = Screen->Width;
BitBlt(Img->Canvas->Handle, 0, 0, Screen->Width, Screen->Height, DC, 0, 0, SRCCOPY);
Img->Picture->SaveToFile("buf.bmp");
HDC DC = GetDC(0);
Img->Height = Screen->Height;
Img->Width = Screen->Width;
BitBlt(Img->Canvas->Handle, 0, 0, Screen->Width, Screen->Height, DC, 0, 0, SRCCOPY);
Img->Picture->SaveToFile("buf.bmp");
Уважаемый!
Ну когда же Вы научитесь читать документацию?
Ну когда же Вы научитесь читать документацию?