Скачать: CL | DM;

Почему не работает?   Найти похожие ветки 

← →
Flash1   (2002-05-26 16:51) [0]

Есть такой код.
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) [1]

2 Flash1 (26.05.02 16:51)

h:=FindWindow("Ieframe",label1.caption), где label1.caption заголовок нового окна не работает, т.к Pchar и Tcaption не любят друг-друга.

А так пробовал: pchar(label1.caption); ??

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c