1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

function ResizeBmp(bitmp: TBitmap; wid, hei: Integer): Boolean; 
var  
  TmpBmp: TBitmap; 
  ARect: TRect; 
begin 
  Result := False; 
  try 
    TmpBmp := TBitmap.Create; 
    try 
      TmpBmp.Width  := wid; 
      TmpBmp.Height := hei; 
      ARect := Rect(0,0, wid, hei); 
      TmpBmp.Canvas.StretchDraw(ARect, Bitmp); 
      bitmp.Assign(TmpBmp); 
    finally 
      TmpBmp.Free; 
    end; 
    Result := True; 
  except 
    Result := False; 
  end; 
end;

function Bmp2Jpg(const ABmp: TBitmap; AQuality: Integer): TJPEGImage;
type
 TJPEGQualityRange = 1..100;
var bmp : TBitmap;
   Jpg : TJpegImage;
begin
 bmp := TBitmap.Create;
 jpg := TJpegImage.Create;
 try
  // bmp.LoadFromFile (FileName);
   Jpg.CompressionQuality := AQuality;
   Jpg.Assign(Abmp);
   Jpg.SaveToFile ( ChangeFileExt('C:/Screen', '.jpg' ));
 finally
   jpg.Free;
   bmp.Free;
 end;
end;



procedure TForm1.Button1Click(Sender: TObject);
   var
  Bitmap: TBitmap;
  DeskWh: HWND;
  DeskDC: HDC;
  DeskRc: TRect;
begin

    DeskWh := GetDesktopWindow;
    DeskDC := GetDC(DeskWh);
    GetWindowRect(DeskWh, DeskRc);
    Bitmap := TBitmap.Create;
    try
       Bitmap.Width  := DeskRc.Right  - DeskRc.Left;
       Bitmap.Height := DeskRc.Bottom - DeskRc.Top;
       BitBlt(Bitmap.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height,
       DeskDC, 0, 0, SRCCOPY);
    ResizeBmp(Bitmap , 426 , 341);

       {  StretchBlt(Bitmap.Canvas.Handle, 0, 0, 256, 320,
             DeskDC, 0, 0, 256, 320, SRCCOPY); }

     //  bitmap. := 256;
   //    bitmap.Width :=     320;
      //   Bitmap.SaveToFile('c:\screen.bmp');

       Bmp2Jpg(Bitmap,44);

    finally
       ReleaseDC(DeskWh, DeskDC);
       bitmap.Free;
    end;

end;