[Oleg]

"поищи в инете шрифты немецкого языка и все-го то проблем! Установи у нужного компонента этот шрифт и используй метод moo2k"
Я не знаю как установить и про метод moo2k никогда не слышал

[Rokuell]

Пришлось сначала записать все строки в текстовый файл немецким шрифтом (в обычном Блокноте, но файл надо сохранить как Unicode), и оттуда уже читать

PS: Приложение создано как CLX Application, чтобы тип TCaption был WideString
PPS: Ты кстати просил ссылки на справку по функциям и процедурам, что скачать можно, вот:
http://www.delphiworld.narod.ru/dw.html
http://www.drkb.ru/
это должно быть у всех!

[Oleg]

Спасибо !
Я бы такой код не написал(по крайней мере с такими знаниями, какие имею сейчас). Пример хороший !
http://www.delphiworld.narod.ru/dw.html -это есть
http://www.drkb.ru/- а это качаю

[Rokuell]

Пожалуйста!
Думаю тебе стоит найти в инете и скачать(ну или просто купить в магазине, как это сделал я) книгу "С. Бобровский Delphi 7 Учебный курс"
издательство Питер - книга реально помогает за 2 месяца научиться кодить, т.е все основы и описание компонентов и т.д...
А дальше уже можно просто эксперементировать - я ведь тож не знал, как эти буквы отобразить, а т.к редактор в Delphi их не поддерживает, вот и пришлось из файла читать и т.д - эксперементируй!

[Oleg]

Как это всё правильно скопировать в буфер
примерно такой код :

Код:

...
uses
ClipBrd
...
ClipBoard.AsText:=StrToWideStr(SL.Strings[1]);

Не работает: либо вопросы, либо без умляутов(точек на верху)
Остальные способы что-то не нравятся, где код на пол страницы и тем более не работает .
Что-то более рационального способа ещё не нашел.
Может поможете, как это сделать, а то я уже начал делать целую программу.

[Oleg]

Всё, теперь умею

Код:

//SL.Free;
ClipBoard.SetTextBuf(PansiChar(StrToWideStr(SL.Strings[3])));

[Rokuell]

В конце после всех действий всё равно добавь строку

Код:

SL.Free;

чтобы освободить память, занятую StringList
PS: Это относится ко всем объектам, которые ты сам лично создаешь ( например SL := TStringList.Create; )
PPS: Кстати вот ещё ссылка, скачай всё оттуда, в первую очередь - справочник по API-функциям http://rexinc.narod.ru/load.htm

[Oleg]

Спасибо, я это дня два назад уже скачал
Насчет:

Код:

SL.Free

Если его добавить(а буквы у меня загружаюся в буфер после нажатия определенной кнопки), то после 2 нажатия вылетает ошибочка.
Я освобождаю память(SL.Free только при нажатии кнопки "выход".
Вопрос: если приложение закрыть на крестик, то освободится ли правильно память ?

[Rokuell]

Если ты хранишь строки в TStringList и используешь их не один раз, то объяви переменную SL:TStringList глобальной ( у мня в исходнике, помниться, она была в отдельной процедуре ), и тогда код:

Код:

SL := TStringList.Create;

ставь при создании формы ( OnCreate ), а освобождение памяти:

Код:

SL.Free;

при закрытии ( OnDestroy ).

[Oleg]

Как сделать так, чтобы я мог вставить текст например в Microsoft World.
При нажатии кнопки и т.д. Т.Е. как узнать идентификатор, куда нужно вставлять символы, про поиск окно я немного разобрался.

Код:

var
  h: HWND;
begin
  h := findwindow(nil, 'Безымянный - Notepad');

Можно так ? И что дальше ?
Как можно ещё реализовать это ?

[Rokuell]

Если хочешь работать с MS Word, то могу посоветовать:
http://www.kornjakov.ru/stat.htm
однако, дело это долгое...
А если в блокнот, то поищи в DelphiWorld там было.

[Oleg]

А как мне вставить текст в окно переводчика ? (Microsoft World не нужно)
Как это узнать, куда вставлять ?

[Rokuell]

Раз разобрался с поиском, ищи идентификатор нужного тебе окна
(напр. окно переводчика) по его заголовку, потом либо посылай этому окну каждый символ текста (работает, но с ошибками) либо вставь текст в буфер, и пошли окну сообщение Ctrl+V

Вот два варианта:

[Oleg]

Как найти идентификатор программы я примерно знал, но как послать сообщение или символ текста я не знал. Большое спасибо за помощь и что подсказал !