| Статистика | 
|
|
Каталог статей
Сделать Скриншот с помощью Delphi7
Нам нужно:
Button(Standart)
В uses добавляем jpeg;
В обработчике событий OnClick(Или просто двойным щелчком) кнопоки пишем:
var
DC : HDC;
bmp : TBitmap;
jpgImg: TJPEGImage;
begin
bmp := TBitmap.Create;
jpgImg := TJPEGImage.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DC := GetDC(0);
bitblt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0, 0, SRCCOPY);
ReleaseDC(0, DC);
jpgImg.Assign(bmp);
jpgImg.CompressionQuality:=100;
jpgImg.SaveToFile('C:\Documents and Settings\Admin\Рабочий стол\Screenshot.jpg');//это путь, куда будет сохранятся наша картинка
jpgImg.Free;
bmp.Free;
end;
|
|
|
Просмотров: 616
7
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
