procedure TMainForm.btnSaveClick(Sender: TObject);
var
  DR, SR: TRect;
  Canvas: TCanvas;
  Bitmap: TBitmap;
  Jpeg: TJpegImage;
begin
  GetWindowRect(MainForm.Handle, SR);
  Bitmap:= TBitmap.Create;
  try
    Canvas:= TCanvas.Create;
    try
      Canvas.Handle:= GetWindowDC(GetDesktopWindow);
      DR:= Rect(0, 0, SR.Right - SR.Left, SR.Bottom - SR.Top);
      Bitmap.Width:= SR.Right - SR.Left;
      Bitmap.Height:= SR.Bottom - SR.Top;
      Bitmap.Canvas.CopyRect(DR, Canvas, SR);
    finally
      ReleaseDC(0, Canvas.Handle);
      Canvas.Free;
    end;
    Jpeg:= TJpegImage.Create;
    try
      Jpeg.CompressionQuality:= 90;  // 1..100
      Jpeg.Assign(Bitmap);
      Jpeg.SaveToFile(ChangeFileExt(Application.ExeName, '.jpg'));
    finally
      Jpeg.Free;
    end;
  finally
    Bitmap.Free;
  end;
end;

function TMainFrm.GetScreenShot(var AImage: TBitmap): Boolean;
var
  fBitmap: TBitmap;
  DC: HDC;
begin
  Result := False;
  DC := GetDC(GetDesktopWindow);
  if DC <> 0 then
      begin
        fBitmap:=TBitmap.Create;
        try
          fBitmap.Width:=MainFrm.Width;
          fBitmap.Height:=MainFrm.Height;
          fBitmap.PixelFormat:=pf32bit;
          bitblt(fBitmap.Canvas.Handle,0,0,MainFrm.Width,MainFrm.Height,DC,MainFrm.left,MainFrm.Top,SRCCopy);
          AImage.Assign(fBitmap);
          result:=true;
        finally
          fBitmap.Free;
        end;
      end;
end;

function GetAppForExt(const Ext: String): String;
var
  Reg: TRegistry;
  Description: String;
  i: Integer;
  function GetRPos(const Value: String): Integer;
  var
    i: Integer;
  begin
    Result:= -1;
    for i:= Length(Value) downto 1 do
    begin
      Result:= i;
      if Value[i] = ' ' then
        Break;
    end;
  end;
begin
  Result:= '';
  Reg:= TRegistry.Create(KEY_READ);
  try
    Reg.RootKey:= HKEY_CLASSES_ROOT;
    if Reg.OpenKey(Ext, False) then
    begin
      Description:= Reg.ReadString('');
      if Reg.OpenKey('\' + Description + '\Shell\Open\Command', False) then
      begin
        Result:= Reg.ReadString('');
        if Result <> '' then
        begin
          i:= Pos('"', Result);
          if i = 1 then
          begin
            Delete(Result, 1, 1);
            i:= Pos('"', Result);
          end
          else
            i:= GetRPos(Result);
          if i > 1 then
            Delete(Result, i, Length(Result));
        end;
      end;
    end;
  finally
    Reg.Free;
  end;
end;