Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 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.01 c
14-85254
Alibaba
2002-07-30 12:43
2002.08.26
Где IE хранит ранее введенные значения?


1-85104
I__am
2002-08-14 18:22
2002.08.26
Вопрос по созданию каталогов и Дельфей


1-85012
Alexey [CDK]
2002-08-16 10:30
2002.08.26
IIS metabase


1-85097
dmtr
2002-08-14 15:34
2002.08.26
Windows 2000 Advanced Server


1-85061
kserg@ukr.net
2002-08-14 13:57
2002.08.26
ошибка QReport-a - что означает?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский