关于Delphi获取QQ2008聊天窗口里的信息(100分)

各位朋友,有哪位可以帮我修改一下程序,以下代码可以接收到2007及以下版本的聊天记录,但2008的不行,谢谢各位了.

procedure TForm1.Timer1Timer(Sender: TObject);
var
Title: array[0..255] of Char;
QQText: Pchar;
Long: Integer;
hLastWin: THandle;
begin
try
Timer1.Enabled := False;
hLastWin := GetForegroundWindow;
Getwindowtext(hLastWin, Title, 255); //获取窗口标题
if (Pos('交谈中', Title) > 0) then
begin
hLastWin := FindWindowEx(hLastWin, THandle(nil), '#32770', nil);
if hLastWin = 0 then Exit;
hLastWin := FindWindowEx(hLastWin, THandle(nil), 'RichEdit20A', nil);
if hLastWin = 0 then Exit;
Long := SendMessage(hLastWin, WM_GETTEXT, 0, 0) + 1;
GetMem(QQText, Long);
SendMessage(hLastWin, WM_GETTEXT, Long, Integer(QQText));
end else Exit;
try
if QQText <> '' then
begin
Memo1.Text := QQText;
end;
finally
FreeMem(QQText);
end;
finally
Timer1.Enabled := True;
end;
end;

怎么没有人对QQ2008进行句柄及类的研究吗?谢谢各位朋友求求我呀.