| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нашел решиние на вставку текста в чужое окно ... [D6, Win2k]

QUE ©   (2003-03-20 12:57:00) 

Если интересно, то решиние такое ... ТОлько вот осталось выяснить почему эта фишка не работает с WORD"ом, пока только вот этот баг нашел. Огромное спасибо Aleksey_svон меня натолкнул ...

if AttachThreadInput(GetWindowThreadProcessid(GetForegroundWindow,nil),GetCurrentThreadId,true) then
begin
{Здесь работает Getfocus!}
HW:=GetFocus;
SendMessage(HW, WM_COPY, 0, 0);
Delay(100);
if Clipboard.HasFormat(CF_TEXT) then
begin
//Мои действия с текстом
...
//Мои действия с текстом
Clipboard.AsText := Text;
Delay(100);
SendMessage(HW, WM_PASTE, 0, 0);
end;
end else ToLog("Ошибка получения дескриптора окна ...");


---

Aleksey_sv   (2003-03-20 16:59:00) [1]

> QUE ©

Всегда пожалуста

---

Clickmaker   (2003-03-20 13:30:00) [2]

А ворду попробуй юникод подсунуть. Он будет счастлив.

procedure SetClipboardText(const S: string);
var
wsz: PWideChar;
dwSize: Cardinal;
hData: Cardinal;
begin
if (Win32Platform = VER_PLATFORM_WIN32_NT) then begin

dwSize := (Length(S)+1) * SizeOf(WideChar);
hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, dwSize);
wsz := PWideChar(GlobalLock(hData));
StringToWideChar(S, wsz, Length(S)+1);
GlobalUnlock(hData);
Clipboard.SetAsHandle(CF_UNICODETEXT, hData);
end else // В 9х бесполезно заморачиваться с юникодом
Clipboard.AsText := S;
end;

---

Наверх