[kronalf]

Подскажите, как можно с помощью Делфи проверить значение реестра и при необходимости изменить это значение. Например задавать путь к рисунку рабочего стола.

[lmikle]

см класс TRegistry.

А вообще вот код из моего проекта:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

procedure TMainForm.SetWallpaper(AWallpaperStyle : TWallpaperStyle); var   OldWallpaperFile : String;   OldWallpaperStyle : String;   OldTileWallpaper : String;   WallpaperFile : String;   Bmp : TBitmap;   Reg : TRegistry; begin   OldWallpaperFile := '';   WallpaperFile := GetWindowsFolerPath + 'ADPV Wallpaper.bmp';   Bmp := TBitMap.Create;   Try     MakeWallpaperBitmapFromImage(Bmp, AWallpaperStyle);     Bmp.SaveToFile(WallpaperFile);   Finally     Bmp.Free;   End;     Reg := TRegistry.Create;   If Reg.OpenKey( '\Control Panel\Desktop', True) Then     Begin       // Save old values       If Reg.ValueExists('Wallpaper') Then OldWallpaperFile := Reg.ReadString('Wallpaper');       If (OldWallpaperFile <> '') And (OldWallpaperFile <> WallpaperFile) Then         Begin           If Reg.ValueExists('WallpaperStyle') Then OldWallpaperStyle := Reg.ReadString('WallpaperStyle') Else OldWallpaperStyle := '2';           If Reg.ValueExists('TileWallpaper') Then OldTileWallpaper := Reg.ReadString('TileWallpaper') Else OldTileWallpaper := '0';             Reg.WriteString('OldWallpaper',OldWallpaperFile);           Reg.WriteString('OldTileWallpaper',OldTileWallpaper);           Reg.WriteString('OldWallpaperStyle',OldWallpaperStyle);         End;         // Write new values       If AWallpaperStyle = wpsTile         Then Reg.WriteString( 'TileWallpaper', '1' )         Else Reg.WriteString( 'TileWallpaper', '0' );       If AWallpaperStyle = wpsStretch         Then Reg.WriteString('WallpaperStyle', '2')         Else Reg.WriteString('WallpaperStyle', '0');       Reg.CloseKey;     End;   Reg.Free;     SystemParametersInfo(SPI_SetDeskWallpaper, 0, PChar(WallpaperFile),SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE); end;

[Vayrus]

Для справки, уменя есть гибридный вариант и он значительно лучше вышепривиденного, так как можно применять различные форматы изображений без надобности конвертирования, возможно применение HTML, кода меньше и после применения обновляется рабочий стол. Это только пример, как сделать подобное Вы, наверно, уже догадались.