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

Нашел решиние на вставку текста в чужое окно ...   Найти похожие ветки 

← →
QUE ©   (2003-03-20 12:57) [0]

Если интересно, то решиние такое ... ТОлько вот осталось выяснить почему эта фишка не работает с 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("Ошибка получения дескриптора окна ...");


---

← →
Clickmaker ©   (2003-03-20 13:30) [1]

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

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;

---

← →
Aleksey_sv ©   (2003-03-20 16:59) [2]

> QUE ©

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

---

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

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



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