procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
h1:HWND;
begin
s:=Edit1.Text;
h1:=FindWindow(nil, 'Window');
SendMessage(h,WM_CHAR,ord(s),0);
end;
end.
пишет ?(вопросительный знак) вместо текста в чат.Помогите люди,желательно кодом):noemotion:
Dinmaite
24.06.2011, 21:35
Вероятно приложение, в которое вы флудите использует юникод.
Попробуй SendMessageW();
Zilp
24.06.2011, 22:25
Не помогает.
Использую Delphi 2010(Delphi 2009/2010 Используют кодировку Unicode)следовательно надо анси но как?)
И как реализовать команду SendMessage(h1, WM_SETTEXT, 0,LParam(PChar(S))) для посылки текста а не для переименовывание окна?
Dinmaite
25.06.2011, 00:07
1 Чисто умозрительно и быдлокодерски - передавать значения символов из таблицы анси. Я 2010 не пользую, не знаю есть ли там ansi переменные или заточенные под преобразование функции.
2 Никак, это сообщение предназначено для переименования окна.
Zilp
25.06.2011, 20:04
Функция Ord возвращает целочисленное значение для любого перечислимого типа Arg.
Это используется преимущественно, чтобы преобразовать символы или перечисления в их числовые эквиваленты.
Как без нее,что вместо нее?:omg:
Народ опробуйте код ,а то меня терзают смутные сомнения...что-то мне кажется что код ***** и не правильный ,а все молчат.