Д7 и Ворд недружат малость

← →
ПЛОВ © (2007-04-23 17:23) [0]

Доброе в.с. Подскажите пожалуйста, как решить следующую проблему - при копировании текста из TEdit-а, Memo и пр. в Ворд, вставляется вот такое - Îáùåñòâî ñ îãðàíè÷åííîé îòâåòñòâåííîñ&# 242;üþ. Где подкрутить гайку? Сам что-то не могу найти. Спасибо.

← →
Desdechado © (2007-04-23 17:26) [1]

Копировать, когда активна русская раскладка.

← →
ПЛОВ © (2007-04-23 17:28) [2]

> Desdechado © (23.04.07 17:26) [1]

Спасибо :) Но это не выход. Представляю, как я это объясню заказчику ) Ище и полная луна желательно и Марс в таком-то созвездии )))

← →
clickmaker © (2007-04-23 18:03) [3]

> [2] ПЛОВ © (23.04.07 17:28)

клади текст в буфер в уникоде

> клади текст в буфер в уникоде

Можно небольшой примерчик или ссылку. Буду очень признателен

> [4] ПЛОВ © (23.04.07 18:10)

if Win32Platform = VER_PLATFORM_WIN32_NT then begin

cbSize := MultiByteToWideChar(CP_ACP, 0, PChar(sText), STextLen, nil, 0);
if (cbSize > 0) then begin
hMem := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, (cbSize shl 1) + 1);
if hMem <> 0 then begin
pData := GlobalLock(hMem);
try
if pData <> nil then begin
MultiByteToWideChar(CP_ACP, 0, PChar(sText), STextLen, pData, cbSize);
SetClipboardData(CF_UNICODETEXT, hMem);
end;
finally
GlobalUnlock(hMem);
end;
end;
end;
end;

Д7 и Ворд недружат малость Найти похожие ветки