» Poradna » Programy

Delphi - Print Screen

 |   | 

Chcel by som naprogramovat aplikáciu, ktorá by po stlačení tlacidla urobila Print Screen obrazovky a obrazok vo formate jpg alebo bmp (radsej jpg) ulozila napriklad do TImage... Dakujem

Odpovědi na otázku

 |   | 

var
  DeskTopDC: HDC;
  DeskTopCanvas: TCanvas;
  DeskTopRect: TRect;
begin
  DeskTopDC := GetWindowDC(GetDesktopWindow);
  DeskTopCanvas := TCanvas.Create;
  DeskTopCanvas.Handle := DeskTopDC;
  DeskTopRect := Rect(0, 0, Screen.Width, Screen.Height);
  img.Canvas.CopyRect(DeskTopRect, DeskTopCanvas, DeskTopRect);
  ReleaseDC(GetDesktopWindow, DeskTopDC);
  DeskTopCanvas.Free;
end;

jen dodam, ze img je TImage

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

uses Jpeg;

procedure CaptureScreen(FileName: TFileName; const Kvalita:Byte; const Sirka, Vyska:Cardinal);
var DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
Bitmap:TBitmap;
Jpg: TJpegImage;
ARect:TRect;
begin;
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0,0, Screen.Width,Screen.Height);
Bitmap:=TBitmap.Create;
Bitmap.Width:=Screen.Width;
Bitmap.Height:=Screen.Height;
Bitmap.Canvas.CopyRect(DeskTopRect, DeskTopCanvas, DeskTopRect);
ARect:= Rect(0, 0, Sirka, Vyska);
Bitmap.Canvas.StretchDraw(ARect, Bitmap);
Bitmap.Width:= Sirka;
Bitmap.Height:= Vyska;
Jpg:= TJpegImage.Create;
Jpg.Assign(Bitmap);
Jpg.CompressionQuality:= Kvalita;
Jpg.Compress;
Jpg.SaveToFile(FileName);
FreeAndNil(Jpg);
FreeAndNil(Bitmap);
FreeAndNil(DeskTopCanvas);
ReleaseDC(GetDeskTopWindow, DeskTopDC);
end;

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Print Screen, Print, Screen




Určitě si přečtěte

Dell XPS 13: Když vás ostatní doženou až za tři roky

Dell XPS 13: Když vás ostatní doženou až za tři roky

** XPS 13 nastartoval trend notebooků bez rámečků ** Letošní model kompletně přechází na USB-C ** Navzdory malému tělu se řadí výkon ke špičce

Tomáš Holčík | 34

Praktické vychytávky, které si chcete doinstalovat do Windows

Praktické vychytávky, které si chcete doinstalovat do Windows

** Pokud vás nudí vzhled nabídky Start, snadno jej můžete změnit. ** Stejně tak existují programy na přidání záložek do programů. ** Spokojit se ani nemusíte se základním ovládáním hlasitosti.

Vladislav Kluska | 46

Nový iPhone a další novinky Applu: sledujte, na co se zase budou stát fronty

Nový iPhone a další novinky Applu: sledujte, na co se zase budou stát fronty

** Apple dnes představuje nové produkty v čele s novými iPhony ** Nemusí zůstat jen u telefonů, čekají se i další novinky ** Úvodní přednáška začíná v 19:00 našeho času

David Polesný | 57

Porno insider: Jak Greg Lansky mění internet pro dospělé

Porno insider: Jak Greg Lansky mění internet pro dospělé

** Erotický obsah generoval ohromné peníze, pak ale přišel internet... ** Pornografie dostupná všude a zdarma uvedla tvůrce do krize ** Někteří ale dokázali potenciál internetu využít i v tomto oboru

Jan Dudek | 12


Aktuální číslo časopisu Computer

Jak vytvořit a spravovat vlastní web

Velký test herních klávesnic a DVB-T2 tunerů

Vše o formátu RAW

Vybíráme nejlepší základní desku