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

← →
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]

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