смена фона рабочего стола

← →
Virus (2003-09-09 11:00) [0]

Меняю фон(картинку) на рабочем столе вот этой процедурой:
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar("имя файл"),
SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE );

Если файл bmp-шный, то при вызове этой строки На рабочем столе сразу меняется картинка. А вот если JPEG, То С виду ничего не происходит, хотя если посмотреть в реестре, то там уже картинка сменена. т.е. если комп перегрузить, то появится на раб. столе уже новая.

← →
ZEE © (2003-09-09 11:20) [1]

как вариант - можно после этого обновить рабочий стол
например так:
ShellExecute(Application.Handle,
Pchar("Open"),Pchar("C:\Winsdows\Rundll32.exe"),
Pchar("user,repaintscreen"),
Pchar("C:\Winsdows\"),SW_SHOWNORMAL);
или если с BMP - все ОК, то можно преобразовать в Битмап, ну и дальше понятно...

← →
Virus (2003-09-09 11:57) [2]

>>или если с BMP - все ОК, то можно преобразовать в Битмап, ну и дальше понятно...
Этот вариант я тоже просматривал. Он мне даже больше нравится. Но проблема в том, как преобразовать в битмап.

var bmp:TBitMap; jpg: TJpegImage; ... bmp:=TBitMap.Create; jpg:=TJpegImage.Create; jpg.LoadFromFile("..."); bmp.Width:=jpg.Width; bmp.Height:=jpg.Height; bmp.Canvas.Draw(0,0,jpg); bmp.SaveToFile("..."); jpg.Free; bmp.Free;

смена фона рабочего стола Найти похожие ветки