Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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

← →
ASvencim ©   (2004-04-20 19:53) [0]

В реестре Windows прописан дрес картинки рабочего стола (C:\Documents and Settings\********\Local Settings\Application Data\Microsoft\Wallpaper1.bmp) Заменяю картинку на другую (Перезаписываю файл Wallpaper1.bmp), но рисунок рабочего стола не меняется, хотя в "Свойствах" отображается новая картинка. Через некоторое время возникает картинка, стоявшая до всех изменений. В чем дело?

---

← →
ASvencim ©   (2004-04-20 19:53) [0]

В реестре Windows прописан дрес картинки рабочего стола (C:\Documents and Settings\********\Local Settings\Application Data\Microsoft\Wallpaper1.bmp) Заменяю картинку на другую (Перезаписываю файл Wallpaper1.bmp), но рисунок рабочего стола не меняется, хотя в "Свойствах" отображается новая картинка. Через некоторое время возникает картинка, стоявшая до всех изменений. В чем дело?

---

← →
Rouse_ ©   (2004-04-20 19:55) [1]

Обновить рабочий стол необходимо

---

← →
Rouse_ ©   (2004-04-20 19:55) [1]

Обновить рабочий стол необходимо

---

← →
ASvencim ©   (2004-04-20 19:57) [2]

Как это сделать программно?

---

← →
ASvencim ©   (2004-04-20 19:57) [2]

Как это сделать программно?

---

← →
Rouse_ ©   (2004-04-20 20:43) [3]

uses ...Registry;

...

procedure TForm1.Button1Click(Sender: TObject);
var
 Reg: TRegIniFile;
begin
 Reg := TRegIniFile.Create("Control Panel");
 Reg.WriteString("desktop", "Wallpaper", "Здесь картинка");
 Reg.WriteString("desktop", "TileWallpaper", "0");
 Reg.Free;
 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

---

← →
Rouse_ ©   (2004-04-20 20:43) [3]

uses ...Registry;

...

procedure TForm1.Button1Click(Sender: TObject);
var
 Reg: TRegIniFile;
begin
 Reg := TRegIniFile.Create("Control Panel");
 Reg.WriteString("desktop", "Wallpaper", "Здесь картинка");
 Reg.WriteString("desktop", "TileWallpaper", "0");
 Reg.Free;
 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

---

← →
ASvencim ©   (2004-04-20 20:48) [4]

Спасибо, помогли

---

← →
ASvencim ©   (2004-04-20 20:48) [4]

Спасибо, помогли

---

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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.022 c