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

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

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

    Delphi программы Скачать исходник. Скриншот экрана.

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

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

    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 не фоткает, только рабочий сто?

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