【Delphi】以程式變更桌布

 
procedure TForm1.Button1Click(Sender);
var
    PicPath: string;
begin
    // 假設圖的位置在 d:\test.jpg
    PicPath := 'd:\test.jpg';
    SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(picpath),SPIF_SENDCHANGE);
end;