Скриншот экрана - Исходник delphi

Опубиковано: 18.05.2008 г., автор: , просмотров: 108287

Исходный код программы позволяющей делать скриншоты экрана. Есть возмоэность мультсьемки, по умолчанию сохраняет изображения в папку где расположенна программа.

ASPack программа для сжатия файлов

Скачать исходник. Скриншот экрана.

Последние из рубрики

Acilla 22 Aug 2012 в 00:00 #

Коментарии почему-то не по порядку. Нормальный код я имел ввиду в коментарии ′adjgam′а, за 2011-10-07.

Усан 19 May 2012 в 00:00 #

Full HD сохраняет как 1200*900=)

Василий Васильев 14 Dec 2011 в 00:00 #

1) Во второй форме, кнопка "ОК" не работает.
2) Что за параметр интервал? она в секундах, минутах или миллисекундах?

adjgam 07 Oct 2011 в 00:00 #

uses jpeg
procedure TForm1.FormCreate(Sender: TObject);
begin
Jpg := TJPEGImage.Create;
FileName := ExtractFilePath( Application.ExeName )
+ FormatDateTime(′mm_dd__hh_nn_ss′, Now) + ′.jpg′;
bmp := TBitmap.Create;
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height, GetDC(0), 0,0,SRCCOPY);
Jpg.Assign(Bmp);
Jpg.SaveToFile(filename);
bmp.Free;
jpg.Free;
Application.Terminate;
end;

Роман 19 Sep 2011 в 00:00 #

А как сделать скриншот в игре в Windows 7, при помощи Delphi, в XP норм фоткает в играх, а в 7 не фоткает, только рабочий сто?

Скриншот экрана - Исходник delphi

Похожие материалы

Последние из рубрики

ОтменитьДобавить комментарий