Desktop Wallpaper

← →
Kr_Alex © (2002-06-08 15:16) [0]

Люди! Как сменить обои десктопа на JPG файл? Пробовал SystemParametersInfo(SPI_SETDESKWALLPAPER,0,"C:\CoolImage.jpg",SPIF_SENDWININICHANGE); - обои десктопа заменяются на чёрный фон. А SystemParametersInfo(SPI_SETDESKWALLPAPER,0,C:\CoolImage.bmp,SPIF_SENDWININICHANGE); прекрасно работает.

← →
Song © (2002-06-08 16:59) [1]

Система при указании файла jpg, автомтически его переводит в bmp.

← →
Walker © (2002-06-09 03:39) [2]

Насколько мне известно, jpg в качестве обоев доступны только в режиме, когда включён Active Desktop (щёлкни правой кнопкой по рабочему столу). Вот возможно из-за того, что этот режим сам не включается (т.е. кроме указания имени файла, тебе надо ещё и включить режим веб), либо этот режим у тебя как-то хитро настроен.

Кстати, насколько я заметил, когда на фоне bmp-шка, этот фон прорисовывается гораздо быстрее, нежели чем jpg или др. форматы.

Совет - перед установкой конвертруй в bmp (например muWallpaper.bmp)

← →
Song © (2002-06-09 10:10) [3]

2Walker © (09.06.02 03:39)
Когда включен Active DeskTop, винда не подставляет jpg, она генерирует html файл, в который через img вставляет jpg, это HTML включение выводится на экран, но файл опять же переводится в bmp перед непосредственно самим выводом, что приводит к тормозам, вот почему такой режим сильно тормозит.

← →
Walker © (2002-06-10 01:36) [4]

to Song
чтож, знания лишними не бывают :)

← →
Демон (2002-06-10 21:16) [5]

var jpg:TJpegImage;
bmp:TBitmap;
Reg:TRegIniFile;
бегин
// это перевод Jpg в Bmp
// а потом картинка.Bmp помещай на деск топ как ты писал
bmp:=TBitmap.Create;
jpg:=TJpegImage.Create;
jpg.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);
bmp.Assign(jpg);
bmp.SaveToFile("\Валпапёр.bmp");
bmp.Free;
jpg.Free;
енд
пользуйся наздоровье!
и не забудь в Юсес добавить Jpeg.

Для этого можно использовать интерфейс IActiveDesktop. Вот пример:

uses
..., ShlObj, ComObj, ...;

procedure TForm1.Button1Click(Sender: TObject);

const
Path : PWideChar = "D:\Photos\Scanned\0013.jpg";

var A:IActiveDesktop;
begin
A:=CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
A.SetWallpaper(Path, 0);
A.ApplyChanges(AD_APPLY_ALL);
...
end;

Desktop Wallpaper Найти похожие ветки