Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Вниз

Как программно обновить рабочий стол?   Найти похожие ветки 

 
Геннадий   (2002-08-15 16:57) [0]

Может быть есть простая функция, типа RefreshDesktopWindow?
А может кто подскажет как посать рабочему столу F5 ?

var
D : THandle;
begin
D:= GetdesktopWindow;
SendMiddage(D, wm_KeyDown, vk_F5, 0);
end;

Или как?


 
-=Spike=-   (2002-08-15 17:00) [1]

Попробуй:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(FindWindow("Progman",
"Program Manager"), WM_COMMAND, $A065, 0);
end;


 
Геннадий   (2002-08-15 22:32) [2]

Не хочет...


 
-=Spike=-   (2002-08-15 22:45) [3]

Ну, это точно сработает и именно так, как ты хотел!

procedure RefreshDesktop;
var
hDesktop: HWND;
begin
hDesktop := FindWindowEx(FindWindowEx(FindWindow("Progman", "Program Manager"), 0,
"SHELLDLL_DefView", ""), 0, "SysListView32", "");
PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0);
PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31);
end;


 
Геннадий   (2002-08-15 23:10) [4]

Спасибо, работает!



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

Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.006 c
14-85258
Alex Shulg
2002-07-31 18:01
2002.08.26
Подсказка для объектов формы


3-84911
Andrushk
2002-08-01 10:52
2002.08.26
Как в DBGrid запретить перенос отдельных столбцов


8-85135
annton
2002-04-20 00:49
2002.08.26
Глюк TImage


14-85217
совсем Новенький
2002-07-29 20:40
2002.08.26
Перевести Pdf (Acrobat Reader) в dhtml, doc,....


7-85275
ZavDim
2002-06-13 13:04
2002.08.26
Динамическое подключение библиотеки





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский