[Программа] Флудер

[Zilp]

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.

пишет ?(вопросительный знак) вместо текста в чат.Помогите люди,желательно кодом)

[Dinmaite]

Вероятно приложение, в которое вы флудите использует юникод.
Попробуй SendMessageW();

[Zilp]

Не помогает.
Использую Delphi 2010(Delphi 2009/2010 Используют кодировку Unicode)следовательно надо анси но как?)
И как реализовать команду SendMessage(h1, WM_SETTEXT, 0,LParam(PChar(S))) для посылки текста а не для переименовывание окна?

[Dinmaite]

1 Чисто умозрительно и быдлокодерски - передавать значения символов из таблицы анси. Я 2010 не пользую, не знаю есть ли там ansi переменные или заточенные под преобразование функции.

2 Никак, это сообщение предназначено для переименования окна.

[Zilp]

Цитата: Функция Ord возвращает целочисленное значение для любого перечислимого типа Arg. Это используется преимущественно, чтобы преобразовать символы или перечисления в их числовые эквиваленты.

Как без нее,что вместо нее?
Народ опробуйте код ,а то меня терзают смутные сомнения...что-то мне кажется что код ***** и не правильный ,а все молчат.