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

Вниз

DeskTop   Найти похожие ветки 

 
bon   (2003-11-03 09:50) [0]

Ув. мастера!
У меня есть процедура, меняющая обои на DeskTop"e

///***
procedure ChangeWallpaper(Path:string);
var
PC: Array[0..$FF] of Char;
begin
StrPCopy(PC, Path);
SystemParametersInfo(spi_SetDeskWallpaper, 0, @PC, spif_UpdateIniFile);
end;
///***
вызываю её и пытаюсь обновить DeskTop
///***
procedure TForm1.Button2Click(Sender: TObject);
begin
ChangeWallpaper("\\server\enterprise\rezerv\wl\zastsu8.bmp");
SendMessage(FindWindow("Progman", "Program Manager"),WM_COMMAND,$A065,0);
end;
//***
DeskTop не обновился но обновляется после перезагрузки ОС. Почему?


 
[lamer]Barmaglot ©   (2003-11-03 10:21) [1]

FAQ?
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622498&n=15


 
bon   (2003-11-03 10:32) [2]

Еще раз повторюсь

DeskTop не обновился но обновляется после перезагрузки ОС. Почему?


 
Guerrillero ©   (2003-11-03 10:49) [3]

Попробывай IActiveDeksTop.SetWallPaper + ApplyChanges
Побробности в MSDN



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
3-40787
grifon-nn
2003-10-21 22:27
2003.11.13
Индексы Paradox


4-42285
Max_
2003-09-11 11:00
2003.11.13
Использование Ram? (Memory usage)


14-42079
qqq
2003-10-22 13:12
2003.11.13
TOEFL books


1-41615
Layner
2003-10-22 13:20
2003.11.13
Как округлить число с 5 знаками после запятой до 3х знаков?


8-41754
h@1f-e1f
2003-07-17 14:28
2003.11.13
Вращение TBitmap