Указание языка помещенного в clipboard текста

Delphi , ОС и Железо , Буфер обмена

Столкнулся с проблемой вставки в Clipboard русского текста в Win2K, WinXP. Залез в DRKB.. Ну да, там вариант предложен довольно смешной (создать TRichEdit, вставить в него clipboard, весь текст пометить русским, и вернуть в clipboard)... Всё бы ничего, но если у меня программа без форм, да и без окон вообще, то TRichEdit не создаётся ('Control has no parent window') . Почитал хелп, посмотрел, что именно Вынь сует в буфер на разных языках, и нашёл простой и красивый способ. Имхо, ему там и место - в разделе "Буфер обмена".

Как вставить русский текст в буфер обмена Windows 2000, Windows XP

Для указания языка текста в clipboard используется специальный формат CF_LOCALE. Данные в этом формате - это LocaleID: word. При вставке текста в формате CF_TEXT, или CF_OEMTEXT, нужно просто добавить LocaleID в формате CF_LOCALE, после чего Windows сможет правильно преобразовать имеющийся текст в недостающие форматы (например в CF_UNICODETEXT), да и просто будет корректно вставлен в самом CF_TEXT.

Code:

procedure CopyDataToClipboard(fmt: word; s:  string);

            var

               hg:  THandle;

               P:  PChar;

            begin

                hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, Length(S)+1);

                P:=GlobalLock(hg);

                StrPCopy(P, s);

                GlobalUnlock(hg);

                Clipboard.Open;

                SetClipboardData(fmt, hg); // fmt = CF_UNICODETEXT | CF_OEMTEXT | CF_TEXT |  CF_LOCALE

                Clipboard.Close;

                GlobalFree(hg);

            end;

             

            procedure CopyStringToClipboard(const s: string);

            var Locale: word;

            begin

                //Set CF_TEXT &  CF_LOCALE

                CopyDataToClipboard(CF_TEXT, s);

                Locale := GetSystemDefaultLangID;  //Get it as you please. even hard-coded ;) $0419 =  LANG_RUSSIAN (f.e.)

                CopyDataToClipboard(CF_LOCALE, Chr(Lo(Locale))+Chr(Hi(Locale)));

            end;

Взято из http://forum.sources.ru

Автор: Mechanic

Указание языка текста в буфер обмена Windows 2K, XP выполняется с помощью специального формата CF_LOCALE, позволяющего указать LocaleID, что позволяет Windows корректно преобразовать текст в нужные форматы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Буфер обмена ::

Время компиляции файла: 2024-12-22 20:14:06
2025-01-29 02:25:07/0.0031020641326904/0