Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.08.2010, 23:56
Аватар для RoboStudent
RoboStudent RoboStudent вне форума
Прохожий
 
Регистрация: 05.08.2010
Адрес: Москва
Сообщения: 16
Репутация: 10
По умолчанию ClipBrd и кириллица

Доброго времени суток!

Подключил ClipBrd.pas. Делаю следующее:

PHP код:
Clipboard.AsText:=('тут слово'); 
Устанавливаю каретку в Memo (пробовал и не в Memo), заставляю сработать Paste эмуляцией нажатия Ctrl+V:

PHP код:
keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),0,0);
keybd_event(Ord('V'),MapVirtualKey(Ord('V'),0),0,0);
keybd_event(Ord('V'),MapVirtualKey(Ord('V'),0),KEYEVENTF_KEYUP,0);
keybd_event(VK_CONTROL,MapVirtualKey(VK_CONTROL,0),KEYEVENTF_KEYUP,0); 
в итоге вставляются кракозяблы. Пробовал менять Crarset в Memo - толку нет. Проблема только с кириллицей.
Поискал на форумах, нашел только это:

Цитата:
"Зайти в реестре в HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Nls\CodePage и поменять 1250=c_1250.nls на c_1251.nls"
Пробовал даже комп ребутнуть - никакого толку.

Кто поможет - молодец
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:13.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025