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

Вниз

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

 
Felix_the_cat   (2003-03-29 04:44) [0]

Такой вопрос:
Из своей программы меняю у папки иконку, но обновление происходит только, когда я перехожу в окно Explorer"a и нажимаю F5. Пробовал и SendMessage отправлять, и в реестре UpdateMode менял - не хочет оно обновляться само. Может, кто знает, как это лечится? Заранее спасибо.


 
Almaz ©   (2003-03-30 04:59) [1]

Попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var
Save: String;
Dummy: Cardinal;
begin
with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if not OpenKey("Control Panel\Desktop\WindowMetrics", FALSE) then Abort;
Save := ReadString("Shell Icon size");
if Save = "" then Abort;
WriteString("Shell Icon size", IntToStr(StrToInt(Save) - 1));
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETNONCLIENTMETRICS, 0, SMTO_ABORTIFHUNG, 10000, Dummy);
WriteString("Shell Icon size", Save);
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, SPI_SETNONCLIENTMETRICS, 0, SMTO_ABORTIFHUNG, 10000, Dummy);
finally
Free;
end;
end;


Удачи.


 
Felix_the_cat   (2003-03-30 13:04) [2]

Огромное спасибо, Almaz - всё прекрасно работает.



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
3-94710
Пикулев Евгений
2003-05-08 05:57
2003.05.29
Как из одной таблицы принять данные в другую такуюже


14-95120
anton2v
2003-05-12 13:30
2003.05.29
Доступ к SQL Server из инета


7-95136
acsoft
2003-03-31 08:00
2003.05.29
Как программно скопировать нужные ключи реестра в файл *.reg


1-94913
spater
2003-05-17 12:37
2003.05.29
Помогите сложить числа в StringGrid е


1-94785
edicon
2003-05-18 20:24
2003.05.29
CreateOLEObject