очень интересный вопрос

← →
stainer a (2002-05-10 01:04) [0]

Привет всем знатокам API И DELPHI!
Есть очень интересный вопрос, вероятней всего он даже уже обсуждался.
Мне нужно поместить текст в компонент RichEdit20W диалога
открытия или сохранения файла WORDa или EXELa(неважно).
Я делаю это следующим образом:

procedure TForm1.Button1Click(Sender: TObject);
var
h1,h2,h3:hwnd;
path:array [0 .. max_path] of char;
begin
path:="c:\program files\"; // К ПРИМЕРУ
h1:=findwindow(pchar("bosa_sdm_Mso96"),nil); //КЛАСС ДИАЛОГА ОТКРЫТИЯ ФАЙЛА WORDa97
h2:=findwindowex(h1,0,pchar("RichEdit20W"),nil);
sendmessage(h2,wm_settext,sizeof(path),integer(@path));
end;

Ну вот где буханка спряталась: в win ME - РАБОТАЕТ НОРМАЛЬНО,
А В WIN95,98 ЗАМЕСТО ТЕКТА ПОЯВЛЯЮТСЯ КАКИЕ-ТО КВАДРАТЫ (НЕ ПОСПОРЯДОЧНЫЕ КАРАКУЛИ,
А РОВНЕНЬКИЕ КВАДРАТИКИ)

Расчитываю на вашу помощь.
Заранее благодарен!

← →
GreatMaster (2002-05-10 01:26) [1]

Это шрифты наверно кочевряжутся.
В Ме такой есть а в 9х нету.

← →
stainer a (2002-05-10 07:50) [2]

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

Как исправить глюк????????????????????????????????

← →
Manulo (2002-05-10 10:49) [3]

В натуре, или проблема шо шрифтами, или поставь более навороченную версию офиса....

← →
Song (2002-05-10 18:11) [4]

Обмен данными идёт в Unicode

← →
GreatMaster (2002-05-10 23:12) [5]

попробуй так:
path:="c:\program files\"#0; // оканчивается нулём
sendmessage(h2,wm_settext,0,integer(@path)); // wParam not used

← →
Вольный стрелок (2002-05-11 10:45) [6]

а RichEdit2 в 98 есть?

очень интересный вопрос Найти похожие ветки