проблема с передачей сообщения (текста) в чужое приложение (клиент Garena)

[Z3rique]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
wnd:HWnd;
i:integer;
s:string;
begin
wnd:=FindWindow(nil, 'Garena');
s:=edit1.text;
for i:=1 to length(s) do begin
SendMessage(wnd, WM_CHAR, ord(s[i]), 0);
end;
end;

end.

что тут не так?) Извини за нубские вопросы, но я и есть нуб. По идее из Edit1 должно передаватся сообщение в клиент Garena.

___________
1) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

2) Вы когда нибудь научитесь давать темам АДЕКВАТНЫЕ названия?!!!
Которые отражают СУТЬ проблемы!
"Что не так" - это что, описание проблемы?! и сразу ясно, о чём дальше пойдёт речь, так?!


Модератор.

[drknn]

Попробуйте создать проект заново. Киньте на него кнопку, поле Edit1 и только после этого сделайте двойной клик на компоненте "кнопка". В открывшейся процедуре введите просто комментарий. А теперь сравните полученный код с тем, который Вы тут выложили. Сравните построчно. Просто откройте два кода в параллельных окнах и сравниет строки.

[Johnson]

drknn, Вы о чем? С кодом всё в порядке, должен компилиться.
Я лично не проверял, времени нет, но мне кажется дело в приведении типов строки и чаров...

[drknn]

А, виноват - прогнал - показалось, что процедура не верно объявлена. Открыл Делфи, проверил - всё верно.

[Z3rique]

procedure SM_SetText(s:string;wnd:HWND);
var
i:integer;
begin
for i:=1 to length(s) do begin
SendMessage(wnd, WM_CHAR, ord(s[i]), 0);
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
Handle:HWND;
begin
Handle:=FindWindow(nil,'Garena');
SM_SetText('Message',Handle)
end;

Вот у меня есть код, который должен отправлять текст сообщение в Garena, но он не отправляет, в чем трабла?

[Gambler]

а окно то находит? и вообще, какой смысл что то слать родительскому окну? Может надо хоть edit какой то найти? Я просто не представляю что там за окно, но пока вижу глупость.

[Z3rique]

Gambler, глупость не глупость, но вот эту функцию мне дал создатель спам бота для этого клиента.

procedure SM_SetText(s:string;wnd:HWND);

var

i:integer;

begin

for i:=1 to length(s) do begin

SendMessage(wnd, WM_CHAR, ord(s[i]), 0);

end;

end;

p.s а как Edit найти? Извиняюсь за глупые вопрос, но я в программировании новичек.