Главная страница
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.015 c
7-71392
Chakchir
2002-06-10 10:09
2002.08.22
Как определить весь объем оперативки и сколько из нее свободно.


1-71164
lak_b
2002-08-13 18:38
2002.08.22
поиск в ListBox


3-71011
velk
2002-07-31 08:17
2002.08.22
ADO тормоза в delphi, а есть ли альтернатива ado но быстрая?


3-71059
Sedunov Vitaly
2002-08-02 12:08
2002.08.22
InstallShield Express+SQL Server


7-71407
МИФИст
2002-06-08 19:33
2002.08.22
ASCII