Главная страница
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.01 c
1-71104
Dmitrey
2002-08-12 18:35
2002.08.22
Хитрый TPopUpMenu


14-71374
Gregson
2002-07-25 13:59
2002.08.22
надо


3-71042
Slin
2002-08-01 16:02
2002.08.22
Господа, подскажите пожалуйста


14-71377
Viewer
2002-07-26 15:47
2002.08.22
Насколько реален выпуск Pentium 5 до конца этого года.


1-71166
Андрусь
2002-08-13 18:32
2002.08.22
поясните,пожалуйста,ежели не сложно...