Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

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

 
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 есть?



Страницы: 1 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
14-47675
Malder
2002-06-16 23:58
2002.07.15
Спасибо модераторам


1-47430
Alexander
2002-07-02 13:52
2002.07.15
Пытаюсь зашифровать файл функцией EncryptFile.


7-47813
_toltec
2002-04-17 22:46
2002.07.15
CreateProcessAsUser


1-47294
volph
2002-06-30 17:14
2002.07.15
Покажите пример работы с array property


1-47352
PycUS
2002-07-01 22:09
2002.07.15
Выключение