Delphi 控制桌面壁紙：SystemParametersInfo 臨時與永久設定

看圖工具常見功能：設定桌面壁紙。使用 SystemParametersInfo 即可實作：

var
  THEPCHAR: PChar;
begin
  THEPCHAR := 'e:\a.jpg';
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, THEPCHAR, SPIF_SENDWININICHANGE);
end;

THEPCHAR 為空則取消壁紙恢復預設色彩。此法為**暫時性**設定，重開機後失效。永久保留需改寫 WIN.INI，但暫時性優點在於可實作「定時更換桌面圖片」功能。