我有一张 1280 * 800 的图片, 系统当前的分辨率是 1024 *768 的, 我把1280 * 800 的图片缩成 1024 *768(必需做), 后另存为图片, 发现失真了: 但Windows 桌面壁纸用1280 * 800 的图片(系统当前的分辨率是 1024 *768) , 不会出现失真的情况, 不知"桌面壁纸"是如何实现"拉伸"的?

下面是我导致失真的代码:

uses jpeg;  

procedure TForm1.Button1Click(Sender: TObject);  
var
  S: TJPEGImage;  
  D: TBitmap;  

begin

S := TJPEGImage.Create;  

ChDir('C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\');  

S.LoadFromFile('Sunset.jpg');  

D := TBitmap.Create;  

D.Width := screen.Width;  

D.Height :=screen.Height ;  

D.Canvas.StretchDraw(Rect(0, 0, screen.Width, screen.Height ), S);  // 失真了

//Canvas.Draw(0, 0, S);  
D.SaveToFile('C:\123.bmp');
S.Free;  

D.Free;
  
end;

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课