FAQ - Устанавливаем свой WALLPAPER для WINDOWS

PROGRAM WALLPAPR;
USES REGISTRY, WINPROCS;

PROCEDURE SETWALLPAPER(SWALLPAPERBMPPATH : STRING; BTILE : BOOLEAN );
VAR
  REG : TREGINIFILE;
BEGIN
// Изменяем ключи реестра
// HKEY_CURRENT_USER
//   CONTROL PANEL\DESKTOP
//     TILEWALLPAPER (REG_SZ)
//     WALLPAPER (REG_SZ)
  REG := TREGINIFILE.CREATE('CONTROL PANEL\DESKTOP' );
  WITH REG DO BEGIN
    WRITESTRING( '', 'WALLPAPER',  
      SWALLPAPERBMPPATH );
    IF( BTILE )THEN
    BEGIN
      WRITESTRING('', 'TILEWALLPAPER', '1' );
    END ELSE BEGIN
      WRITESTRING('', 'TILEWALLPAPER', '0' );
    END;
  END;
  REG.FREE;
// Оповещаем всех о том, что мы 
// изменили системные настройки
SYSTEMPARAMETERSINFO(SPI_SETDESKWALLPAPER, 0, NIL, SPIF_SENDWININICHANGE );
END;

BEGIN
 // пример установки WALLPAPER по центру рабочего стола
 SETWALLPAPER('C:\WINNT\WINNT.BMP', FALSE );
END.