Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

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

 
VDen   (2002-06-13 12:45) [0]

Как сменить эти самые обои на рабочем столе из программы?
Так же как это делается в AcdSee.


 
Song ©   (2002-06-13 13:59) [1]

SystemParametersInfo()
этот вопрос через каждые два дня обсуждается.


 
zzzzzzz   (2002-06-13 15:56) [2]

может не самый правильный способ, но.... на ХРю работает

procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegIniFile;
begin
// HKEY_CURRENT_USER
// Control Panel\Desktop
// TileWallpaper (REG_SZ)
// Wallpaper (REG_SZ)
reg := TRegIniFile.Create("Control Panel" );
with reg do
begin
WriteString("Desktop","Wallpaper","c:\1.bmp");//<- твоя картина
WriteString( "Desktop", "WallpaperStyle", "2" );
reg.Free;
// оповешаем, что обои обновились
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;
// SetWallpaper("c:\winnt\winnt.bmp", False);
end;


 
SerVS ©   (2002-06-14 16:43) [3]

Song © прав, люди научитесь пользоваться поиском!!!


 
Ricks ©   (2002-06-17 14:34) [4]

Через интерфейс IActiveDesktop в ShlObj


 
stainer   (2002-06-19 02:06) [5]

Аесли включен active DESKTOP?


 
stainer   (2002-06-19 02:17) [6]

Сори, конечно за А если включен active DESKTOP?
Поблему понял.


 
Avenger   (2002-06-20 00:42) [7]

При вкл. ActiveDesktop не работает!



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
3-71010
vib
2002-07-31 22:10
2002.08.22
Копирование


3-70990
Ag2002
2002-07-31 11:39
2002.08.22
Выбор


4-71436
Ярослав
2002-06-19 16:25
2002.08.22
Закачка ф-ла по HTTP


6-71299
sm_dmitry
2002-06-10 22:00
2002.08.22
Twebbrowser и линки на exe


1-71182
Mars
2002-08-09 16:58
2002.08.22
Как сделать ComboBox - ReadOnly?