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

Вниз

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

← →
krec   (2007-01-16 18:14) [0]

Почему не устанавливается фон рабочего стола? Делаю так:
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;

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

---

← →
krec   (2007-01-16 18:39) [1]

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

---

← →
Sapersky   (2007-01-16 19:31) [2]

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

---

← →
krec   (2007-01-16 20:25) [3]

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

---

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

Пипец 8)

---

← →
antonn ©   (2007-01-16 22:54) [5]

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

---

← →
kingsoft ©   (2007-01-16 23:44) [6]

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

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;


---

← →
Zeqfreed ©   (2007-01-17 01:01) [7]

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

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

---

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

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

Наверх

Память: 0.45 MB
Время: 0.047 c