Cambiar el papel tapiz del escritorio

Cambiar el papel tapiz del escritorio, para personalizar una aplicacion cuando la instalamos.

DECLARE LONG SystemParametersInfo IN "user32";
  LONG uAction,;
  LONG uParam,;
  STRING lpvParam,;
  LONG fuWinIni

filename = GETFILE('bmp')

=SystemParametersInfo(20, 0, filename, 1)

Jorge Mota