عکس گرفتن از دسکتاپ در delphi , c++builder

[bendavis]

یک مثال کاربردی و به درد بخور در دلفی و سی بیلدر


عکس گرفتن از دسکتاپ (http://mehrdadnosrati.mihanblog.com/post/12)

از وبلاگ مهرداد نصرتی


mehrdadnosrati.mihanblog.com (http://mehrdadnosrati.mihanblog.com)


کد در سی بیلدر
برای این منظور ابتدا یک شی Canvas میسازیم
سپس هندل دسکتاپ را بدست آورده و به هندل این شی میدهیم

حال یک شی از جنس نقشه بیتی در حافظه میسازیم
حال با استفاده از دستور آخر در مسیر داده شده ذخیره میشود .






TCanvas * MyCanvas= new TCanvas ;
MyCanvas->Handle = GetDC(HWND_DESKTOP) ;
Graphics::TBitmap *MyBitmap = new Graphics::TBitmap ;
int W = Screen->Width;
int H= Screen->Height;
MyBitmap->Width=W;
MyBitmap->Height= H;
MyBitmap->Canvas->CopyRect( Rect(0,0,W,H) ,MyCanvas,Rect(0,0,W,H) );
MyBitmap->SaveToFile("c://myfile.bmp");