JPEG На обои рабочего стола

[SoftKoc]

!Здравствуйте!

Подскажите пожалуйста как можно поставить обои на рабочий стол в формате JPEG не изменяя формат на BMP.
Ставлю я обои вот таким методом:

uses
   Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegIniFile;
begin
  Reg := TRegIniFile.Create('Control Panel');
  Reg.WriteString('desktop', 'Wallpaper', '1.BMP');
  Reg.WriteString('desktop', 'TileWallpaper', '0');
  Reg.Free;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

Заранее очень благодарен!

[uberchel]

А, что мешает изменить формат файла так?

 Reg.WriteString('desktop', 'Wallpaper', '1.JPG');

[SoftKoc]

Делал так уже!
Дело в том что BMP ставит нормально. А вот JPG не в какую не хочет!
Просто фон становиться синим и все

[CodeExpert]

Дак может еще нужно указывать параметры, такие как разрешение(растяжка, замещение и т.д.)?
п.с. попробовал твой код, и Jpeg и Bmp прекрасно ставятся, система Win7 Pro, кстати, может быть ты не тем ковертишь картинку, попробую другими редакторами, у меня иногда было такое, использовал быструю конвертацию из контекстного меню окна, не всегда стабильно работало..

[SoftKoc]

Сообщение от CodeExpert

Дак может еще нужно указывать параметры, такие как разрешение(растяжка, замещение и т.д.)?
п.с. попробовал твой код, и Jpeg и Bmp прекрасно ставятся, система Win7 Pro, кстати, может быть ты не тем ковертишь картинку, попробую другими редакторами, у меня иногда было такое, использовал быструю конвертацию из контекстного меню окна, не всегда стабильно работало..

Нет дело в том что, Win7 и Виста работает и BMP, и JPG, а вот XP отказывается! А параметры тут не причем, потому, что если бы в них была проблема то и BMP не брало бы! Насколько я понимаю остается конвертить все в BMP, а потом ставить на фон рабочего стола!

[mihali4]

Win7 и Виста работает и BMP, и JPG, а вот XP отказывается

Чушь полная...
Вы в ручном режиме пробовали установить JPG в качестве обоев на ХР ?
Все нормально ставится...
Значит, это вы где-то мудрите...

[SoftKoc]

Вот наше только что!

При установке обоев на рабочий стол картинка пережимается в BMP и сохраняется вот по этому адресу!
Адрес текущих обоев рабочего стола:
С:\\Documents and Settings\\...Имя...\\Local Settings\\Application Data\\Microsoft\\Wallpaper1.bmp
Так что с JPG не получится, только перегонять в BMP
Большое спасибо всем участникам темы!
За то что вывели меня на истинный путь!

[spamer]

Так что с JPG не получится, только перегонять в BMP

Не правда.

Вот все работает:

Uses ShlObj, ComObj;

...

procedure ChangeWallpaper;
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
as IActiveDesktop;
ActiveDesktop.SetWallpaper('11.jpg', 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

[BOBAH13]

1. Открываем MSDN и смотрим что BMP только для XP, JPG для Виста и Севен.
2. В ручном режиме ставится ? А почему ? Все элементарно. Система конвертирует в bmp и потом уже ставит bmp.

Почему конвертирование в bmp такая проблема и не ясно.
Последний вариант - это работа через shell, самый верный путь

[SoftKoc]

Сообщение от BOBAH13

1. Открываем MSDN и смотрим что BMP только для XP, JPG для Виста и Севен.
2. В ручном режиме ставится ? А почему ? Все элементарно. Система конвертирует в bmp и потом уже ставит bmp.

Почему конвертирование в bmp такая проблема и не ясно.
Последний вариант - это работа через shell, самый верный путь

Вот ты прав!
Я это говорил, только другими словами!