procedure TForm1.Button1Click(Sender: TObject);
const F = 'c:1.bmp';
begin
  if  not SystemParametersInfo(SPI_SETDESKWALLPAPER,
                       0,
                       Pchar(F),
                       SPIF_SENDCHANGE) then
    ShowMessage('실패');
end;

SystemParametersInfo() 이 함수가 여러가지 일을 하는 것 같다, 첫번째 인자의 값이 굉장히 많다...