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

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

Desktop [D6]

mordush ©   (2005-03-07 19:48:00) 

Приведи пример проги которая Устанавливает Картинку из Image На рабочий стол

---

ламер_   (2005-03-07 20:00:00) [1]

ну, конечно, (filename:string) было лишним

---
Ничто так не ограничивает полёт мысли программиста, как компилятор

---

Alex_Petr   (2005-03-07 20:00:00) [2]

>Приведи
ну раз приказано, то:
1. Создаешь иконку ( CreateComObject )
2. Помещаешь ее в "Desktop" директорию необходимого user-а

---

ламер_   (2005-03-07 19:57:00) [3]

Тебе надо - ты и приведи:))

procedure TfmMain.SetWallpaper(FileName:string);
begin
    Image1.Picture.Bitmap.SaveToFile(AppDir+'WallPaper.bmp');
    SystemParametersInfo(SPI_SETDESKWALLPAPER,0,PChar(AppDir+'WallPaper.bmp'),SPIF_SENDCHANGE);
end;

---

Наверх