Delphi-Help

uses

  ..., Registry;

procedure TForm1.Button1Click(Sender: TObject);

var

  Reg: TRegistry;

  TileWallpaper: string;

  WallpaperStyle: string;

begin

   Reg := TRegIniFile.Create;

   Reg.RootKey := HKEY_CURRENT_USER;

   Reg.OpenKey( 'Control Panel\Desktop', false );

   TileWallpaper := Reg.ReadString( 'TileWallpaper' );

   WallpaperStyle := Reg.ReadString( 'WallpaperStyle' );

   Reg.CloseKey;

   Reg.Free;

   case StrToInt( TileWallpaper ) of

      0: case StrToInt( WallpaperStyle ) of

            0: Edit1.Text := 'По центру';

            2: Edit1.Text := 'Растянуть';

         end;

      1: if StrToInt( WallpaperStyle ) = 0 then Edit1.Text := 'Рядом';

      else Edit1.Text := 'Без понятия';

   end;

end;