30.03.2010, 00:59
|
Прохожий
|
|
Регистрация: 08.03.2010
Сообщения: 9
Репутация: 10
|
|
ShowWindow и панель задач
Здравствуйте!
Восстанавливаю с помощью ShowWindow словарь LingvoX3 из трея для поиска слов (с любыми параметрами: SW_SHOWNORMAL, SW_SHOWNA и т. д.), ее окно появляется и функционирует, слова ищет, но вот на панели задач не отображается и на попытки закрыть или снова свернуть с помощью стандартных кнопок в заголовке не реагирует. Появляется на панели задач только после полного развертывания, и уже только после этого ее можно закрыть/свернуть. В чем причина?
Код:
procedure TSDIAppForm.Button3Click(Sender: TObject);
begin
H := FindWindow('LV14_MainWindow', 'ABBYY Lingvo x3');
ShowWindow(FindWindow('LV14_MainWindow', 'ABBYY Lingvo x3'), SW_SHOWNORMAL);
SetForegroundWindow(H);
keybd_event(VK_LCONTROL, 0, 0, 0);
keybd_event(Byte('V'), 0, 0, 0);
keybd_event(Byte('V'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_RETURN, 0, 0, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
end;
|