Home » Tipps & Tricks » System » Desktop und Taskleiste » Wallpaper setzen (Tiled oder Centred)
Wallpaper setzen (Tiled oder Centred)
Das Hintergrundbild kann wie folgt im Tile bzw Centred Modus gesetzt werden…
function PE_SetWallPaperEx(const pFileName: PChar; const bTiled: Bool):Bool; var hkResult: HKEY; lData : Char; begin Result := FALSE; if bTiled then lData := '1' else lData := '0'; if ERROR_SUCCESS = RegOpenKeyEx(HKEY_CURRENT_USER, PChar('Control PanelDesktop'), 0, KEY_WRITE, hkResult) then begin if ERROR_SUCCESS RegSetValueEx(hkResult, 'TileWallpaper', 0, REG_SZ, @lData, 1) then begin RegCloseKey(hkResult); Exit; end else RegCloseKey(hkResult); end else Exit; if SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pFileName, SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE) then Result := True; end;