گرفتن عکس به طور دلخواه از صفحه ی نمایش

[dkhatibi]

می خواهم از صفحه ی نمایش و به طور دلخواه و با اندازه های دلخواه عکس بگیرم
چه راهی را پیشنهاد می کنید؟

[freebird]

procedure TForm1.Button1Click(Sender: TObject);
var
dc: HDC; lpPal : PLOGPALETTE;
Width,Height,x,y : integer;
bm : TBitMap;
begin
{test width and height}
Width:=100;
Height:=100;
x:=0;
y:=0;
bm := TBitmap.Create;
if ((Width = 0) OR (Height = 0)) then exit;
bm.Width := Width;
bm.Height := Height;
{get the screen dc}
dc := GetDc(0);
if (dc = 0) then exit;
{do we have a palette device?}
if (GetDeviceCaps(dc, RASTERCAPS) AND RC_PALETTE = RC_PALETTE) then
begin
{allocate memory for a logical palette}
GetMem(lpPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
{zero it out to be neat}
FillChar(lpPal^, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)), #0);
{fill in the palette version}
lpPal^.palVersion := $300;
{grab the system palette entries}
lpPal^.palNumEntries :=GetSystemPaletteEntries(dc,0,256,lpPal^.palPalEn try);
if (lpPal^.PalNumEntries <> 0) then
begin
{create the palette}
bm.Palette := CreatePalette(lpPal^);
end;
FreeMem(lpPal, sizeof(TLOGPALETTE) + (255 * sizeof(TPALETTEENTRY)));
end;
{copy from the screen to the bitmap}
BitBlt(bm.Canvas.Handle,0,0,Width,Height,Dc,x,y,SR CCOPY);
Image1.Picture.Bitmap := bm;
{release the screen dc}
ReleaseDc(0, dc);
end;

X,y نقطه شروع هست و width و height هم که طول و عرض تصویری که می خواهید از desktop بگیرید مشخص می کند. در ضمن این کد رو از توی سورس یک برنامه ای copy و paste کردم.