Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];

Вниз

Как програмно изменить фоновый рисунок рабочего стола?   Найти похожие ветки 

 
ЗЛО ©   (2005-08-28 20:29) [0]

Как програмно изменить фоновый рисунок рабочего стола?


 
begin...end ©   (2005-08-28 21:16) [1]

SystemParametersInfo


 
ЗЛО ©   (2005-08-29 13:32) [2]

Попробую.

Можно было-бы и поподробней.


 
Lamer@fools.ua ©   (2005-08-29 15:01) [3]

>Можно было-бы и поподробней.

Та без проблем.

http://www.google.com/search?client=opera&rls=en&q=SystemParametersInfo&sourceid=opera&ie=utf-8&oe=utf-8


 
ЗЛО ©   (2005-08-29 16:11) [4]

...
var
mypic : TBitMap;
...

Надо mypic разместить на рабочем столе без перезапуска.

procedure (pic:tbitmap);
begin
?
end;


 
begin...end ©   (2005-08-29 16:13) [5]

> ЗЛО ©   (29.08.05 16:11) [4]

> mypic : TBitMap

А файла нету?


 
ЗЛО ©   (2005-08-29 16:47) [6]

>А файла нету?

Или если хотите

procedure (FileName:String);
begin
?
end;


 
begin...end ©   (2005-08-29 16:54) [7]

> ЗЛО ©   (29.08.05 16:47) [6]

Дык тогда [1].

procedure SetWallpaper(FileName: string);
begin
 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(FileName), SPIF_UPDATEINIFILE)
end.


 
Игорь Шевченко ©   (2005-08-29 16:56) [8]

Отгадал все буквы, не смог назвать слово.


 
easy ©   (2005-08-29 16:57) [9]

http://delphiworld.narod.ru/base/change_wallpaper.html
http://delphiworld.narod.ru/base/change_wallpaper2.html
http://delphiworld.narod.ru/base/change_wallpaper3.html
http://delphiworld.narod.ru/base/change_wallpaper4.html


 
ЗЛО ©   (2005-08-29 23:48) [10]

Надо же, работает.

>begin...end ©   (29.08.05 16:54) [7]
>Дык тогда [1].
>procedure SetWallpaper(FileName: string);
>begin
> SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(FileName), SPIF_UPDATEINIFILE)
>end.

Ведь можешь, если захочешь.



Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2005.11.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.05 c
2-1129109894
MD2005
2005-10-12 13:38
2005.11.06
определение цвета в точках


6-1121858218
alexa
2005-07-20 15:16
2005.11.06
Передача голоса


14-1129219994
NewWonder
2005-10-13 20:13
2005.11.06
HP 640c снова траблы...


14-1129264678
NewWonder
2005-10-14 08:37
2005.11.06
Хороший сайт - какой он?


1-1129103674
Mishenka
2005-10-12 11:54
2005.11.06
Как в ListView сделать, чтобы CheckBox был не у всех Item ов?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский