Форум: "Система";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];
Вниз
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.
← →
Ricks (2002-06-14 23:11) [6]Для этого можно использовать интерфейс 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;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c