ارسال شده توسط کاظم نظری در 87/7/28:: 5:40 صبح
برای
چت درون دلفی می توان از این برنامه استفاده کرد:
این برنامه هم میزارم ولی فکر نکنم کار کنه چون یه خورده اشکال داره:
var
;wnd: HWND
;i: Integer
s: string;
begin
wnd := FindWindow("IMClass", nil);
if wnd <> 0 then
begin
wnd := FindWindowEx(wnd, 0, "RichEdit20A", nil);
s := Memo?.Text;
for i := 1 to Length(s) do
SendMessage(wnd, WM_CHAR, Word(s), 0);
PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
end;