| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

krec ©   (2007-01-16 18:14:00) 

Почему не устанавливается фон рабочего стола? Делаю так:
procedure SetWallpaper(sWallpaperBMPPath:String;bTile:boolean);
var
 reg : TRegIniFile;
begin
 reg := TRegIniFile.Create('Control Panel\Desktop' );
 with reg do begin
   WriteString( '', 'Wallpaper',  
     sWallpaperBMPPath );
   if( bTile )then
   begin
     WriteString('', 'TileWallpaper', '1' );
   end else begin
     WriteString('', 'TileWallpaper', '0' );
   end;
 end;
 reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil,SPIF_SENDWININICHANGE );
end;

просто убирается картинка...

---

Zeqfreed   (2007-01-17 01:01:00) [1]

> дельфимастер не тот, что был раньше...

Когда раньше? За все это время так и не узнал, что на рабочий стол можно установить только bmp-картинку? (если не брать во внимание ActiveDesktop)

---

kingsoft   (2007-01-16 23:44:00) [2]

Попробуй может поможет! Изменение фона рабочего стола по нажатию на кнопку.

uses ...Registry; //подключаем модуль
...
procedure TForm1.Button1Click(Sender: TObject);
var
 Reg: TRegIniFile;
begin
 Reg := TRegIniFile.Create('Control Panel');
 Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Фон.bmp');
 Reg.WriteString('desktop', 'TileWallpaper', '0');
 Reg.Free;
 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;


---

antonn   (2007-01-16 22:54:00) [3]

procedure SetWallpaper(Value: string);
begin
   SystemParametersInfo(spi_SetDeskWallpaper, 0, PChar(Value) , spif_UpdateIniFile);
end;

---

Sleepeer   (2007-01-16 21:44:00) [4]

Пипец 8)

---

krec   (2007-01-16 20:25:00) [5]

я эту процедуру вызываю, например, setwallpaper('d:\pic.jpg', true);
но ничего...
Где-то в нете нашел это

---

Sapersky   (2007-01-16 19:31:00) [6]

Неужели раньше не задавали глупых вопросов? Хорошее, наверное, было время :)
Где, собственно, в приведённом коде установка ФОНА рабочего стола?

---

krec   (2007-01-16 18:39:00) [7]

дельфимастер не тот, что был раньше...

---

Наверх