Почему не работает?
Flash1 © (2002-05-26 16:51:00)
Есть такой код.
h:=FindWindow("Ieframe",nil); // ищем окно IE
LockWindowUpdate(h); // не даем возможность показывть
выделение текста
SendMessage(h, WM_SYSCOMMAND, SC_HOTKEY, h); // активизируем
окно IE
PlayKeys(Chr(vk_control)+#0+strtokeys("a")+#0); // нажимаем
CTRL-A, т.е выделяем текст
PlayKeys(Chr(vk_control)+#0+strtokeys("c")+#0); // нажимаем
CTRL-C, т.е копируем выд.текст
richedit1.PasteFromClipboard; //Помещаем в richedit1
скопированный текстPlaykeys выполняется на основе модуля
sndkey.
Проблемы две.
Во-первых, нужно скопировать весь текст, что находится в
старнице Ie. В принципе данная задача успешно выполняется. НО при
этом текст страницы полностью выделен, т.е LockWindowUpdate(h) не
дает желаемого результата, а именно запрещение выделение текста. А
задача заключается в том, чтобы юзер не знал, что его страница
скопирована, да и потом это жутко раздражает, когда каждая страница
у тебя выделена. Вопрос заключается в том, как бы выделить страницу
(т.е произвести стрл-а), но при этом, чтобы весь тескт не
выделялся?
Во-вторых, нужно проверять разные загаловки, а вот такая
фишка h:=FindWindow("Ieframe",label1.caption), где label1.caption
заголовок нового окна не работает, т.к Pchar и Tcaption не любят
друг-друга. НО при этом окна то все равно надо разные проверять...
Как решить данную проблему?
Очень желателен пример в случае если надо модифицировать код
или полностью его изменить
SPeller (2002-05-26 18:31:00) [1]
2 Flash1 (26.05.02 16:51)
h:=FindWindow("Ieframe",label1.caption), где label1.caption
заголовок нового окна не работает, т.к Pchar и Tcaption не любят
друг-друга.
А так пробовал:
pchar(label1.caption);??
Наверх 
ЧАТ |
Орешник |
|
