AliReza Vafakhah
یک شنبه 17 شهریور 1387, 02:01 صبح
کد :
// save image
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.SaveToFile('c:\11.bmp');
end;
// take picture
procedure TForm1.Button2Click(Sender: TObject);
VAR
HS:HDC;
begin
HS:=image1.Canvas.Handle;
BitBlt(HS,0,0,Screen.Width,SCREEN.Height,GetDC($0) ,0,0,SRCCOPY);
end;
نکته : هرچه کنترل Image شما بزرگتر باشد عکس گرفته شده از صفحه نمایش بیشتر خواهد بود
// save image
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.SaveToFile('c:\11.bmp');
end;
// take picture
procedure TForm1.Button2Click(Sender: TObject);
VAR
HS:HDC;
begin
HS:=image1.Canvas.Handle;
BitBlt(HS,0,0,Screen.Width,SCREEN.Height,GetDC($0) ,0,0,SRCCOPY);
end;
نکته : هرچه کنترل Image شما بزرگتر باشد عکس گرفته شده از صفحه نمایش بیشتر خواهد بود