ذخیره فرم به عنوان یک عکس !! ...

[Mahmood_M]

چه طور می شه یک فرم رو به عنوان یک عکس با پسوند JPG یا JPEG یا BMP یا ... ذخیره کرد ؟
اگه راهنماییم کنید ممنون می شم ؟

[Hamid_PaK]

دوست عزیز اگه تو فوروم اول سرچ بزنی حتما جواب سوالتون رو سریعتر پیدا خواهید کرد ...
بدنبال دی سی ( DC ) گرفتن از یک پنجره ( GetWindowDC ) باش پیداش می کنی ...

یا حق !!!

[Mahmood_M]

لطفا اگه زحمتی نیست جواب رو همین جا بدید ( شرمنده )
به خدا هرچی می گردم پیدا نمی کنم !!!!!

[Hamid_PaK]

procedure TForm1.Button1Click(Sender: TObject);
var
wDC: HDC;
bit: TBitmap;
begin
wDC := GetWindowDC(GetDesktopWindow); // get the desktop device context to start paint
bit := TBitmap.Create; // create bitmap
try
bit.Width := Screen.Width; // store size of desktop with
bit.Height := Screen.Height; // store size of desktop heigth
BitBlt(bit.Canvas.Handle, 0, 0, bit.Width, bit.Height, wDC, 0, 0, SRCCOPY); // copy source from desktop to bitmap ...
bit.SaveToFile('1.bmp'); // save bitmap to a file ...
finally
ReleaseDC(wDC); // release the DC
bit.Free; // free bitmap
end;
end; // end of function


یا حق !!!