[Crack502]

Скажите можно ли и как это сделать:
При нажатии кнопки button1 делается скрин экрана и автоматически копируется в папку картинкой? Очень интересно. Кто знает?

[AND_REY]

Простой примерчик:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); Var  bmp: TBitmap;  DC: HDC; begin  DC:= GetDC(0);  bmp:= TBitmap.Create;  bmp.Height:= Screen.Height;  bmp.Width:= Screen.Width;  Bitblt(bmp.Canvas.Handle, 0, 0,Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);  bmp.SaveToFile('C:\SCREENSHOT.bmp');  bmp.Free;  ReleaseDC(0, DC); end;

[Crack502]

Спасибо огромное!