Стянул у буржуев.

Код:
Procedure SetDesktopWallpaper(FileName.s, Style.s)
       If Style = "0"
        Style = "centered"
      ElseIf Style = "2"
        Style = "stretched"
      EndIf
      RunProgram("gconftool", " -t string -s /desktop/gnome/background/picture_filename "+Chr(34)+FileName+Chr(34)+Chr(34)+Style+Chr(34), "")
EndProcedure
FileName.s = OpenFileRequester("Choix de l'image BMP", "*.bmp", "Bitmap Files (*.bmp)|*.bmp|All Files (*.*)|*.*", 1, 0)
If FileName <> ""
  SetDesktopWallpaper(FileName, "2")
EndIf

Автоматизацию добавить я думаю несложно. :stupor: